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FOREWORD 

This Final Report provides the results obtained in the Shuttle Cryogenics Supply 
System Optimization Study, NAS 9-11330, performed by Lockheed Missiles & Space 
Company (LMSC) under contract to the National Aeronautics and Space Administration, 
Manned Spacecraft Center, Houston, Texas. The study was under the technical 
direction of Mr. T. L. Davies, Cryogenics Section of the Power Generation Branch, 
Propulsion and Power Division. Technical effort producing these results was per- 
formed in the period from October 1970 to June 1973. 

The Final Report is published in eleven volumes*: 

Volume I — Executive Summary 

Volumes I, III, and IV — Technical Report 

Volume V A-1 and V A-2 - Math Model - Users Manual 

Volume V B-1, V B-2, V B-3, and V B-4 — Math Model — Programmers Manual 

Volume VI — Appendixes 

The LMSC Staff participants are as follows: 

Study Manager L. L. Morgan 

Subsystem Evaluations C. J. Rudey 

D. P. Burkholder 
C. F. Merlet 
W. H. Brewington 

Integrated Systems H. L. Jensen 

Component Analyses B. R. Bullard 

F. L. Bishop 

*The Table of Contents for all volumes appears in Volume I only. Section 12 in 
Volume in contains the List of References for Volumes I through IV. 
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Thermodynamics 


Thermal Protection 
Fluid Dynamics 
Propellant Acquisition 
Design 

Structural Analysis 

Instrumentation 
Reusability /Reliability 
Failure Modes and Effect Analyses 
Requirements and Criteria 
Safety and Mission Completion 
Math Model 


G. E. Heuer 
R. M. Vernon 
J. Gries 
D. R. Elgin 
G. E. Heuer 
R. Cima 

D. P. Burkholder 
R. Cima 
M. P. Hollister 
R. K. Grove 
R, A. Michael 
M. L. Vaughn 

C. C. Richie 
R. R. Gaura 
R. F. Hausman 

D. C. Saunders 
C. F. Merlet 
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R. F. Hausman 
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Subsystem Evaluation 
Component Analysis 

Thermodynamics 
Thermal Protection 


H. L. Jensen 
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AiRe search 
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THE CRYOGENIC INTEGRATED 
MATH MODEL PROGRAM 
(TCIMM) 

APPENDIX - C 


THE MATH MODELS 


This Appendix presents the mathematical models for the major sub- 
routines and supporting subprograms employed in Program TCIMM. 
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MATH MODEL FOR ACPS ANALYSIS 
PURPOSE OF ANALYSIS 

To provide a computational technique, which, when programmed for a digital 
computer , will permit rapid and accurate parametric analysis of current and 
advanced attitude control propulsion systems. The analytical capability of the 
calculational techniques employed is to include system sizing and weight deter- 
mination procedures as well as the permitting of parametric perturbation of 
system functional constraints and performance criteria. Where applicable, the 
analysis is to generate time dependent energy requirement histories associated 
with reactant or propellant storage and utilization. 

THE MATH MODEL 

The ACPS concept system, upon which the model is based, was chosen from among 
similar concepts studied previously under this study contract (Ref 1.9-4, 5). The 
concept illustrated in Fig. M. M-1, is a cold helium pressurized, subcritical 
cryogen fluid supplied, bipropellant gas-fed attitude control propulsion system. 

The cryogen fluids are stored as liquids imder low pressure and temperature 
conditions. Conversion of the liquid cryogen fluids to gases is accomplished throvigh 
the use of high pressure liquid pumps which feed high pressure vaporizer consisting 
of gas generator fired heat exchai^ers . The resulting gaseous propellants are fed 
into high pressure accumulators for temporary storage until needed by the rocket 
engines. Propellant feed to the engines is through pressure regulator valves which 
drop the pressure to levels compatible with the engine operating requirements. Oxygen 
and hydrogen gas at the engine feed pressure and temperature are available to other 
systems via tap lines at the engine feed manifolds. 

The Math Model, presented herein, gives in generalized equation form, the proce- 
dural technique employed in setting up the ACPS analysis program. As the program 
was developed , many detailed refinements were added to enhance analytical accuracy , 
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therefore , deviations will become apparent when comparing the model with the actual 
program listings. And, of course , it will be noted that the model was broken into 
quite a few subprograms , each of which are quite detailed as compared to the 
generalized model equations. 


MATHEMATICAL PROCEDURES AND EQUATIONS 


The following text presents the generalized procedures and equations employed in 
the mathematical model for the ACPS analysis program: 

1. Propellant flow requirements; 

a) Input data required; 

Pr; _ = engine 0„ feed pressure , psia 

O2 ^ 

PEjj = engine H 2 feed pressure , psia 


Te 


o. 


Te 


H. 


= engine O 2 feed temperature , °R 
= engine H 2 feed temperature , °R 


Tto. 


= O 2 storage tank temperature , R 


Tt 




F 

E 


max 


ISP 

MR 

MR 

MR, 


E 


HXGG 


TPGG 


Th. 


in 


Th, 


out 


= H 2 storage tank temperature , R 

= engine thrust level , lbs per engine 

= maximum number of engines operating simultaneously 
at any duty cycle point 

= engine specific impulse, lb s/lb -sec 

= engine propellant mixture ratio, lbs 02 /lbs H 2 

= heat exchanger gas generator mixture 
ratio , lbs Og/lbs H 2 

= turbopump gas generator mixture ratio , 

(lbs 02 /lbs H 2 ) 

= gas generator gas temperature to heat exchanger , °R 

= gas generator gas temperature out of heat 
exchanger, °R (>700) 
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^hout 
DS, 


E 


AP 


EST 


Pt. 


in 


Pt 


out 


TT, 


in 


g 


= gas generator gas pressure to heat exchanger , psia 

= gas generator gas pressure out of heat exchanger , psia 

= engine duty cycle, number of engines and 
time of operation 

= propellant pump efficiency , decimal fraction 

= propellant pump drive turbine efficiency , 
decimal fraction 

= trial assumption, maximum required pump AP , psi 

= turbopump turbine gas inlet pressure, psia 

= turbopump turbine gas outlet pressure , psia 

= turbopump turbine gas inlet temperature , °R 

= ratio of specific heats of gas generator exhaust 
productions 

2 

= gravitational constant = 32 , 174 ft/sec 


b) Maximum propellant flow rates to engines: 


WOr 




WHc 


'E 


= F/ISP (MRj,/l + MR„) Ib/sec per engine at any 
duty cycle point 

= F/lgp (1/1 + MRg) Ib/sec per engine at any duty 
cycle point 


max 


Wog. = ^ ^ ^ 02 - Ib/sec maximum flow to all engines 


i = l 
^max 


= ^ ^ ^H 2 ^b/ sec maximum flow to all engines 


i = l 


c) 


Maximum total propellant system flow rates: 

• • • • 

Wq 2 = ^02 + ^02 Ib/sec maximum 
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"out 


) 

in / 


K. 

- \ J 

|_\ in 

out / 


+ 

Ih 

- h \ 

\ '‘^out 

°in / 

(V 

■ \ut) 




+ 

h 

- h 

^out 

^in 


(i + mr) 


O 2 HXGG 


Og HX 


0.185 AP 


EST 


2 in out 


(1 + mr) 


JO 2 TP 


/ MR \ 
\1 + MR/ 


Hg HXGG 


H^HX 


0.185 zSP 


EST 


^LH„ ^P ^T ^*^T. " ^T J 

2 in out 


/ MR \ 

\1 + MR/jj 


JHg TP 




in out 


(1 + mr). 


Hg HXGG 


H 2 HX 


0.185 AP 


EST 


^LH ^P ^T ^^T. ^T 
2 in out 


(1 + mr)^ 


»2 TP 
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= cold fluid outlet enthalpy , Btu/lb (obtained from Tables , 
vs ^EST 

= cold fluid inlet enthalpy, Btu/lb (from Tables, 
vs APggT + 15, T^) 


= hot fluid outlet enthalpy , Btu/lb 


and T 


out 


h ^ 
out 


(from Tables, vs 


= hot fluid inlet enthalpy , Btu/lb 

P. 


h. 

in 


and Tj^ ) 
in 


(from Tables, vs 


= gas outlet enthalpy from turbine , Btu/lb (from Tables , 
vs P„ and T„ ) 

^out ■‘"out 

= gas inlet enthalpy to turbine, Btu/lb (from Tables, 
vs P,p and T,^, ) 
in in 


>'g-' 


•Lrp 

out in ^ in 

Computation of Propellant System AP Between Pump and Engines : 

Pressure drop is found only for the maximum flow case, since that is the 
condition which sizes the lines and fittings. The maximum flow case occurs 
with all engines operating. Each system element is treated in order of its 
occurrence, advancing upstream from the engines to the accumulator, the 
the heat exchanger, and the pump. Analysis is conducted for each operating 
engine in turn. 
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(a) Input data required: 

(1) For each line segment element: 

Numerical identity of the element in the system 
Lj = line segment length, ft 
= line inside diameter, in. 

Line function or location in system; 

A — transports engine propellant only 
B — transports engine and gas generator propellant 
C — between accumulator and heat exchanger 
D — between heat exchanger and pump 
F — between pump and tank 
G — between tank and helium sphere 
H — transports propellants to HX gas generators 
J - transports propellants to TP gas generators 
K - transports gas from GG to HX 
L - transports gas from GG to TP 

Type of fluid flowing: 

' -°2 

n - 

(2) Tabulation of fi, (friction factor) , versus Re, (Reynolds 
Number), for the type of pipe used, 

3 

(3) Vacc = accumulator volume , ft 

(4) Pg = pump actuation pressure switch (accumulator) 

pressure setting, psia 

(5) Pjnax “ accumulators pressure at pump shutoff, psia 

(6) tjj = time from pump actuation to full pump output pressure 

(output check valve setting) at zero flow, seconds 

(7) = ratio of specific heats for the fluid under consideration 

(©2 , H 2 , He , or gas) 

(8) For each two -outlet branch fitting element: 

= fitting inlet inside diameter , in. 
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= number of outlets in operation 

K, = pressure drop_ coefficient through outlet No. 1 

(function of (W/A).^, (W/A)^^, and diversion angle) 

K„ = pressure drop coefficient through outlet No. 2 

^ (function of (W/A). , (W/A) , and diversion angle) 

in M 

(9) For each pressure regulator element: 

Numerical identity of the element 
Minimum AP for regulation, psi 

(10) For each valve element: 

Numerical identity of the element 

AP through valve , as function of fluid flow rate and 
state , and valve diameter 


(11) For each single-outlet fitting element: 

Numerical identity of the element 

= inside diameter of the fitting, in. 

= equivalent feet of pipe of the fitting , ft 

(12) For each accumulator: 

Numerical identity of the accumulator exit as a system 
pressure drop element 

Numerical identity of the accumulator inlet as a system 
pressure drop element 

D. = accumulator exist inside diameter, in. 

D. = accumulator inlet inside diameter, in. 

(13) For each heat exchanger: 

Numerical identity of the heat exchanger as a system pressure 
drop element. 

APctty = Heat exchanger cold fluid pressure drop 
<0.2 Pe.„ < 0.25 Pc^^t 

NOTE: APhuY ~ exchanger hot fluid pressure drop 
<0.4Ph.„< 0.667 Ph^^^ 
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(14) R = gas constant for the fluid under consideration, ft/°R 


(b) Procedure for Analysis: 


(1) Determine for each system element in order of its occurrence 

advancing upstream from the engines , per the order of element 
numerical designation, for each system O 2 and H 2 . 


(2) Let subscript (i) designate the element under consideration, 
regardless of its type 

(3) Let subscript (i - 1) designate the element which preceded (i) 
in the analysis , (the element which is immediately downstream 
of i) , regardless of its type 


(4) Sum pressure drops to the point of the pump exit, for each system, 
©2 and H 2 . 

(5) Compare XAPi found in (4) with the trial assumption of APesT 
which was input in operation la for the respective system, O 2 

or H 2 . 

Xap. 

M ' ■ ' k 

< 0.01, iteration not necessary 


(6) If 


EST 


Xap. 


(7) If 


XAP. - 


Xap. 


> 0.01, input A Pj,g,p = 


ZAP, + + 


and recalculate ^oi’ ^°2’ ^Hl’ Wh 2 > 


Recalculate ZAP, 


Recheck for 


ZAPj ^^EST 


ZAP, 


< 0.01 


Iterate as necessary until 


system Og and Hg . 


ZAPi - <^Pest 


Zap, 


< 0. 01 for each 
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(c) Compute pressure drop through a line segment element; 

(1) W. = W. , 

' ' 1 1-1 


T. = T. , 
1 1-1 


p. = p. , + Ap. 
1 1-1 1 


Find fluid state for ^i-1’ propellant. 


(2) If fluid is a liquid: 

AP.= 4.64 (W//,.Pp-®-2 (W.^ L./p. D.^) 
p. = P._j^, fluid type), Ib/ft^ 

Pi = Pi_i> fluid type), Ib/ft-sec 


(3) If fluid is a gas, proceed as follows: 

(i) Solve for Mg, from equation or input curve: 


0.22451 


^W. v/R T._^ 

.of Pi-1 /V 


/ 2 
= ^2 ^ K 


.0.5 


/4fL* \ 

(ii) Solve for — j from equation: 


(• 


4fL* \ 
D A 


) 


LrjM2 j 


+ 1 
~Ty7 


/4fL* \ 

(iii) Solve for — ) from equation: 
= ^2 ^ (^) 


In 


(>'f+ 1) Mg 


2 (l -^^^2 
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is found from tabulation of fj vs Re , where 


W. 


Re = 15.27 


1 D. a- 
K 1 ^ 1 , 


= viscosity at and P^, Ib/sec-ft 


(iv) Solve for from equation or input curve: 



(v) Solve for AP. = P- - P. , 
' ' 11 1-1 


In 


(yj+ l)Mj 



AP, = Pi - 


i-1 


Pi 




p._j^ = calculated Pj for the element which preceded this 
^ line segment in the analysis 


(d) Compute pressure dropthrough a two -outlet branch fitting element: 
(Flag the outlets which feed the gas generators) 


(1) Are both outlets operating? 
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If no , 


W. 

1 

= 

T. 

1 

= Ti_i 

P. 

1 

= Pi-1 ^ 

Ap. 

1 

K 

= 3.63 . ^ 

D p. 
1 1 

where 

K = or K = K2, 

If yes, 

for outlet No. 1, 

W. 

1 



= 

P. 

1 

= + AP. 

1 

K 

— 3.63 4 

D^P. 
1 1 

If yes, 

for outlet No. 2 , 

w. 

= (W ) + (W ) 

1 1 2 1 J- 1 

T. 

1 

= (Ti_i) 

2 

P. 

1 

= (Pi_l) + AP 
2 

2 

= 3.63 . 

d7p. 


1 1 
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(e) Compute pressure drop through a pressure regulator element: 


W. 

1 


W 


i-1 


T. = f(P., h._j^), where h._^ = (Enthalpy). = f T._^ 

P. = P. , + Ap. 

1 1-1 1 


Set Ap 


= Ap 


min 


AP. 


= Ap 


min 


(f) Compute pressure drop throi^h a valve element: 


W. 


APi 

Ap_. 


= T 


i-1 

= Pi_i + AP. 


= f (W^, fluid, fluid state, and 
= AP. 


valve 


(g) Compute pressure drop through single outlet fitting element: 


w. 

= W. , 

1 

1-1 

T. 

= T. , ; P. 

1 

1-1 ’ 1 

D. 

= I.D 

1 

• ’Fitting 


i-1 


Find fluid state for T. fluid. 

(2) If fluid is a liquid; 


/ W. 

Ap. = 4.64 ' ^ 


- 0.2 


1 E 


°i/ 


P. D? 
1 1 


“ ^-Equivalent 
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(3) If fluid is a gas , 

(i) Solve for M 2 , from equation or input curve 


0.2245 


P. , 

I 1 1-1 ^ f 


/ ^f ^ 2 

= ^2 ^ ^ -2- ^2 


>0.5 


/4fL* \ 

(ii) Solve for ^ — j from equation: 


/ 4fL* \ 

^ D /o 


- “ 2 ) ' 

. ^f“2 J 


. r-cj\ ^ “2 


2 r 


f 


21 + 


2 ^2 


/4fL* \ 

(iii) Solve for [ f) ) equation: 

m, - m, * (^) 


fi is found from tabulation of b vs Re , where 


Re = 15.27 




Lg = equivalent pipe length of the fitting , ft 


(iv) Solve for from equation or input curve: 




M, 




+ 


<y^ + 1 ' 


In 


(Vf + 1) 


2 1 + 


7f-l 
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(v) Solve for AP^: 


AP. = P. - P. , 

1 1 1-1 


W. v/r T. , \ 

1 ^ 1-1 \ 

/ 

/ 1 
M, 1 M- M 


= calculated P^ for the element which preceded 
this fitting element in the analysis , 



0.2245 


(h) Compute pressure drop through an accumulator; 


W. 

1 


P. 

1 




W 


i-1 


= T 


i-1 

P. 1 + Ap. 
1-1 1 


APj + APq 


= Ap. , , + Ap ,, . 

inlet outlet 



Acc 


= accumulator diameter, in. 


AP, 


O 


= 0.363 


1 

p. of 

'^1 1-1 


m 


Pi-1 * 
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where 

P. _^ = highest value of Pi-i found in the element immediately 

^ downstream of the accumulator for any engine . 

(i) Compute pressure drop through a heat exchanger: 

The heat exchanger design subroutine provides the possibility 

that pressure drop of the cold fluid may be as much as 

0.2 Pc- = 0.25 P .if AP is not specified. 

'^m cont c 

Therefore 


P^ = 0.25 or any input value lower than this. 

Also , for the heat exchanger , 


w. 

1 

II 

1 



Ti 

= T 

Tnk 



where 




'^Tnk 


for the Og 

system 

T 

^Tnk 


for the Hg 

system 


(j) Perform summation of pressure drops of all elements: 

n 

i=l 
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where 


/ ^ AP^ = maximum pressure drop between the pump and any 
engine. Use nonsteady -state flow for elements 
where it results in a higher AP^ . 


(k) Perform iteration: 


n 


Compare ^ ^ P^^ with AP^g^ per procedvire outlined in 

IAP. - AP 


i = l 


Operation 2b, and iterate as necessary until 


EST 


AP, 


< 0 . 01 . 


3. Compute Propellant System Ap From Pump into Storage Tank: 

Pressure drop is found only for the maximum flow case, which occurs with 
all engines operating. Each system element is treated in order of its 
occurrence, advancing upstream from the pump to the storage tank. 

(a) Input data required: 

Provide inputs per Operation 2a, as applicable, for each pump- 
to -storage tank flow path. 

(b) Procedure: 

(1) Determine APj for each system element in order of its occurrence 
advancing upstream from the pump , per the order of element 
numerical designation, for each system, and H 2 • 

(2) Let subscript (i) designate the element under consideration, 
regardless of its type. 

(3) Let subscript (i-1) designate the element which preceded (i) 
in the analysis (the element which is immediately downstream 
of i), regardless of its type. 
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(4) Sum the pressure drops of all elements between the pump inlet 
and the inside of the storage tank, for each system, O2 and Hg 

(c) Compute pressure drop through a line segment element: 


(1) W. 


= W. 


i-1 


T. 

1 

P. 

1 


= Pi_l + AP, 


(2) By definition of subcritical system, fluid is a liquid. Is flow 
steady -state? 


(i) If flow is steady -state. 


Ap. 

1 


4.64 


' W. L.\ 


(ii) If flow is not steady -state. 



where W is found as follows: 
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(d) Compute pressure drop through a two-outlet branch flitting element: 

Solve by same method as operation 2d. 

(e) Compute pressure drop through a pressure regulator element: 

Such an element would not normally be found in this section 
of a subcritical system. If such an element existed, it would 
be solved per operation 2e. 

(f) Compute pressure drop through a valve element: 

Solve by same method as operation 2f. 
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(2) By definition of subcritical system, fluid is a liquid. 
Is flow steady -state? 

(i) If flow is steady -state, 


/ W. \ /W^ L 


p. 

1 1 


where 


= L„ ... of Fitting 
E Equivalent 


(ii) If flow is not steady -state. 


/W. 


1 1 / 


p. d: 


/W L.' 

\D? 


where 

h = ^Actual 

W = value found in operation 3c (2) (ii) 

(h) Compute pressure drop through an accumulator: 

No accumulator in this section of the system. 

(i) Compute pressure drop through a heat exchanger: 

No heat exchanger in this section of the system. 


(j) Compute pressure drop throi^h storage tank exit: 
(1) W. = W._^ 




^i ^-°-Exit 
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(2) By definition of subcritical system, fluid is a liquid. 
Is flow steady -state ? 

(i) If flow is steady -state, 


AP. = 0.363 



(ii) If flow is not steady -state. 


AP. 

1 




where 

L. = length of the outlet nipple 
W = value found in operation 3c (2) (ii) 


(k) Compute pressure drop through propellant acquisition device: 


W. 

1 

T. 

1 

D. 

1 

L. 

1 


equivalent orifice diameter of acquisition device 
^Acq Dev 


AP. 



where 

W = value foimd in operation 3c (2) (ii) 
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(1) Compute storage tank pressure: 


P 

Tnk 



Psat NPSP 


where 


p 

Tnk 

p 

SAT 

NPSP 


= storage tank ullage pressure, psia 


= saturation pressure of the stored liquid 


corresponding to 


TTnk- 


= net positive suction pressure at pump inlet 
(Input), psi 


n 


L 

i = l 


AP. 


summation of pressure drops from inside of tank 
to pump inlet, psi. Use nonsteady -state flow for 
elements where it results in a higher AP^ . 


Determine Pressure Drop From Pressurant Sphere to Inside of Storage 
Tank: 

Pressure drop is found only for the maximum flow case, which occurs with 
all engines operating. Each system element is treated in order of its 
occurrence, advancing upstream from the storage tank to the pressurant 
tank. 


(a) Inputs required: 

Provide inputs per operation 2a, as applicable, for each storage tank- 
to pressurant sphere flow path. 

(b) Procedure: 

(1) Determine APi for each system element in order of its occurrence , 
advancing upstream from the inside of the storage tank, per the 
order of element numerical designation for the pressurant system. 
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(2) Let subscript (i) designate the element imder consideration, 
regardless of its type. 


(3) Let subscript (i-1) designate the element which preceded (i) in 
the analysis (the element which is immediately downstream of i) , 
regardless of its type. 

(4) Sum the pressure drops of all elements between the storage 
tank and the pressurant tank. 

(5) It is assumed that the pressurant is stored cryogenically; 
therefore, temperature changes which tend to occur in the 
pressurant due to blowdown and subsequent pressure reduction 
are assumed to be nullified by the thermal influence of the 
cryogenic sink, especially after injection of the pressurant 
into the storage tank. 


(6) Start from storage tank ullage conditions of: 


For the O 2 pressurant: 


PR 


(PR) tot V 


For the Hg pressurant: 


W. = Wh 

'(PR) 


rpR 
^tot \Ph„ 


f(Ti, P^J^ ^SAT^ ’ POg ^i^ ’ ^H2 ^ ("^i’ 
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(c) Compute pressure drop through storage tank pressurant entry: 




2 


where 



^(Ti’Pxnk> 

storage tank diameter, in. 


(d) Compute pressure drop through a line segment element: 

Solve by same method as operation 2c (3) . 

(e) Compute pressure drop through a two-outlet branch fitting element: 

Solve by same method as operation 2d. 

(f) Compute pressure drop through a pressure regulator element: 

W. = W. , 

1 1-1 

(Assumed) 

AP. = -^^niin " Psi 

(g) Compute pressure drop through a valve element: 

Solve same method as operation 2f. 

(h) Compute pressure drop through single outlet fitting element: 

Solve by same method as operation 2g (3). 
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(i) Compute pressure drop through pressurant tank outlet element: 


Ap. = 
1 



P 


PR 


Pi-1 * ^i 


(j) Summation of pressure drops of all elements: 

n 

^PpR = X) 

i = l 


Determine Propellant Pressure Drop From Main Propellant Line Tap 
to a Gas Generator; 

Pressure drop is found for the propellants flowing to the Og and H 2 
conditioning gas generators which provide the turbopump drive gas and 
the hot fluid for the propellant conditioning heat exchangers. 

(a) Inputs required: 

Provide inputs per operation 2a, as applicable, for each gas 
generator propellant feed line. 

(b) Procedure: 

(1) Determine Ap^ for each feed path element in order of its occurrence , 
advancing upstream from the gas generator to the main line tap 
point, per the order of element numerical designation, for each 
system, O 2 and H 2 , and for each gas generator. 
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(2) Let subscript (i) designate the element under consideration, 
regardless of its type. 

(3) Let subscript (i-1) designate the element which preceded (i) in 
the analysis (the element which is immediately downstream of i) , 
regardless of its type. 

(4) Sum the pressure drops of all elements between the point of 
departure from the main propellant line and the gas generator , 
for each propellant and gas generator , 

(5) Determination of flow rate , : 

(a) To heat exchanger gas generators: 

O 2 flow rate to ©2 heat exchanger GG: 

% (^5^8 - S) t W (-KgK,) 

W = 

h (Kg + Kg + Kg - Kg Kg - 1) 

©2 flow rate to H 2 heat exchanger GG: 

Wq, <-*^6 Wjj (Kg K^ - K^) 

(^5 + *^6^7 - ^5^8 - 

H 2 flow rate to ©2 heat exchanger GG: 

W (Kg Kg - Kg) + W (-KgK,) 

W = 

% (Kg Kg + KgK^ - Kg Kg - 1) 
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Hg flow rate to Hg heat exchanger GG: 

Wq (-Kg Kg) + W„ (Kg Kg - Kg) 

W = 

‘4 <^5 + Kg * KgK, - KgKg - 1 ) 


= 


'h - h 
c . c. 
out in 


5 \ h 


Kg =1 


K„ = 


^8 = 


1 in 

out, 

h 

*^out 

- h 

c. 

in 

in 

- \ . 
out 

h 

®out 

- h 

°in 

in 

- K 

out 

h 

^out 

- h 

°in 


I MR 

a + MR, 


02 HX 


O 2 HX GG 


(1 + MR 


©2 HX 


©2 HX GG 


' MR 

a + MR/ 


H 2 HX 


H 2 HX GG 


out in I 

V - hh I 

in out ' 


(1 + MR, 


H 2 HX 


H 2 HX GG 


(b) To turbopump gas generators: 

©2 flow rate to O 2 turbopump GG: 

Wq, <^ 9^12 - 

W = ^ 5 

ig (Kg + K,2 + K^o ^11 - ^9 
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Og flow rate to H 2 turbopump GG: 


Wq, W (KgK^^ - K,,) 

W = — ^ 

'^6 (K, -*- Kj _2 + K^o ^11 - S ^12 - 


Hg flow rate to turbopump GG: 


+ W„ (-K,^K,,) 


' 0 „ 


H, 


^10 


'E 


®7 ' ■ (Kg + Kjg + KjgK^j - KgK^g > 1) 


H 2 flow rate to H 2 turbopump GG: 


% (-^10 *^ 12 ) ■*• % ( S ^12 - ^ 12 > 

W - E !e 

'^8 " (Kq + K ^2 ^10 ^11 “ S ^12 ■ 


^9 = 


0.185 AP 


EST 


%„ "p "t (hTin - hT, 


'^out) 


MR 


U + MR 


O 2 TP 


O 2 TP GG 


K 


10 


0.185 APj,gT 

L 

Pr „ ^'T' ~ ) 

L 02 I' 1 ^in ^out . 

V 

0 , TP 


1 + MR 


O 2 TP GG 


K 


11 


6.185 Ap 


EST 


^LH„^p\^T. ^T 
2 in out 


MR 


il + MR 


«2 




TP GG 


^Assume P^ at gas generator = P^ (Operation 1 ). 
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K 


12 


0.185 AP 


EST 


^T. 

M lU 


- h 


T ^ 
^out 


1 + MR 


«2 TP 


Hg TP GG 


(c) Compute pressure drop throi^h a line segment element: 


( 1 ) w. 

found per preceding operation 

T. 

1 

= T. j^ (main line fluid temperature) 

P. 

1 

= P. , + Ap. 
1-1 1 


(2) At this point in the system, fluid is a gas. 

(3) Solve by same method as operation 2c (3). 


(d) Compute pressure drop through a two-outlet branch fitting element: 
Solve by same method as operation 2d. 


(e) Compute pressure drop through a pressure regulator element: 

Solve by same method as operation 2e. 

(f) Compute pressure drop through a valve element: 

Solve by same method as operation 2f. 

(g) Compute pressure drop through a single outlet fitting element: 

Solve by same method as operation 2g (3) . 

(h) Summation of pressure drops of all elements: 

n 
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Determine Gas Generator Combustion Products Pressure Drop From a Gas 
Generator to the Gas User: 


Pressure drop is found for the gas flowing to the O 2 and H 2 heat 
exchangers and the O 2 and H 2 turbopumps. 

(a) Inputs: 

Provide inputs per operation 2a, as applicable, for each gas flow line. 


(b) Ihrocedure: 

(1) Determine AP^ for each gas flow path, element in order of its 
occurrence , advancing upstream from the point of inlet to the HX 
or turbopump, per the order of element numerical designation, 
for each gas flow line. 

(2) Let subscript (i) designate the element under consideration, 
regardless of its type. 

(3) Let subscript (i-1) designate the element which preceded (i) 

in the analysis (the element which is immediately downstream of i) , 
regardless of its type. 

(4) Sum the pressure drops of all elements between the point of exit 
from the gas generator and the user , for each propellant and 
each gas user. 


(5) Determination of gas flow rate 

Gas line to the heat exchanger: 
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Gas line to the Hg heat exchanger: 


/Ah 

, = ST 


'w. 


H, 


' '■/h^ HX \ “2tot. 


Gas line to the O 2 turbopump: 


0. 185 AP, 


W. 

1 


fW 


5+6 


O. 


LO 2 P T T , ^ - 

' O 2 TP 


Gas line to the H 2 turbopump: 


0.185 AP, 


W. 

1 


W. 


7+8 


H. 


LH„ '’P , .... 

2 \ tot 


(6) Start the analyses of the gas lines from gas generator exit 
conditions: 


W. 

1 

Ti 

T. 

1 

P. 

1 


^G 

«G 

>'g 

Cp 


G 


= gas flow rate as found above 
= Tjj.^ for heat exchanger gas flow 
= Ttjjj for turbopump gas flow 
= - P-, as foimd from operation 5h. 

= f (Tj, P., MR) 

= f (MR) 

= f(MR) 

= f (T., MR) 
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(c) Compute pressure drop through a line segment element; 

(1) Wp T^, and P. as found above, 

(2) Fluid is a gas. 

(3) Solve by same method as operation 2c(3). 

(d) Compute pressure drop through a pressirre regulator element: 

Solve by same method as operation 2d. 

(e) Compute pressure drop through a pressure regulator element: 

Solve by same method as operation 2e. 

(f) Compute pressure drop through a valve element; 

Solve by same method as operation 2f. 

(g) Compute pressure drop through a single outlet fitting element: 

Solve by same method as operation 2g(3). 

(h) Summation of pressure drops of all elements: 

^ n 

i = l 

7. Size Heat Exchanger; 

(a) Required input data for heat exchanger subroutine: 

= weight rate of flow of cold fluid , Ib/sec . 

( W 02 ^ H2 ’ from operation Ic j 

tot ^tot / 
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■^Cout = 





GG 

'^hin 

^hout 

^hin 

^hout 


cold fluid inlet temperature , °R 
(TtQ or Ttjj from operation la) 

cold fluid inlet pressure , psia 
(APj,g^ + 15 from operation 2j) 

cold fluid outlet temperature , °R 
(Tro *^£11 from operation la) 

^2 ^2 

cold fluid pressure drop in heat exchanger , psia 
(Input maximum permissible value or 0.2 Pg. 
whichever is the smaller . If no Pg is inputs 
the heat exchanger subroutine will assume a value 
which gives minimum heat exchanger weight or 
volume . ) 

weight rate of flow of hot fluid , Ib/sec (Wj of hot 
fluid is obtained from operation 5b(5) ) . 

NOTE : As an alternative , MRhx GG can be input 

and the heat exchanger subroutine will 

calculate W, . 

h 

O 2 /H 2 ratio of heat exchanger gas generator , Ib/lb 
(can be input as alternative to Wj^) 

hot fluid inlet temperature , °R 
(T^in* from operation la) 

hot fluid outlet temperature , °R 
from operation la) 

hot fluid inlet pressure , psia 
from operation la) 

hot fluid outlet pressure , psia 

(Input minimum permissible or 0.6 Ph- , whichever 
is the larger. If no Pho^^. is input, the heat exchanger 
subroutine will assume a value which gives minimum 
heat exchanger weight or volume. ) 




identity of cold fluid, Og or H 


Which is preferred , minimum weight or minimum volume ? 
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(b) Output data: 


W. 


tot 


tot 

P 


t^tot 


llout 

Ap 


ctot 


<^out 


= heat exchanger weight, lb = 

3 

= heat exchanger volume , in. 

= hot fluid pressure drop , psi 
= hot fluid outlet pressure, psia 
= cold fluid pressure drop, psi 
= cold fluid outlet pressure , psia 


Determine Total Weight of Propellants Delivered, 


(a) WOo 

WHo 


= 

WO2 + 

WOi + W02 = W02 

at 

E 

^ Del 

= 

Wh 2 + 

Whi + Wh 2 = Wh 2 

ot 

E 

Del 

W02 

= total 

Og load for engine use , lb 




Wo^ 

= total 

Og for ©2 conditioning , lb 

W02 

= total 

Og for H2 conditioning , lb 

Wh 2 e 

= total 

H2 load for engine use , lb 

Whi 

= total 

H2 for ©2 conditioning , lb 

Wh 2 

= total 

H2 for H2 conditioning, lb 

Total engine propellant = 


W, 


E 


n V 

i = l \ ' 
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where 


= number of ermines operating during time period (i) 
F = engine thrust, lb per engine 
Igp = engine specific impulse , Ib/lb -sec 
0 ^ = operating time during time period (i) , sec 




' MRj, \ 
1 + 


( 2 ) 


W. 




= W 


?E + MRj, 


W. 


W02 - K^) + Wh 2 (-K^Kg) 

E K 


(K^ + K4 + Kg Kg - - 1) 


W. 


W02^ (-Kg Kg) + WHg^ (K^ Kg - Kg) 
Og " (K^ + K4 + Kg Kg - K^ K4 - IT 




W, 


H, 


Wo2^ (Kg K^ - Kg) + Wh 2^ (-Kg Kg) 

(K^ + K4 + Kg Kg - K^ K4 - 1) 


NOTE; 
These 
values of 
Ki, K2, Ks 
K4 are 
different 
than those 
in opera- 
tion Ic, 
because 
APeq is 
used nere . 




(-KgK^) + WHg 

+ K^ + Kg Kg 


E 


(K1K4 


K1K4 


K4) 

w~ 


K 


1 


= / MR \ 

Wh/Q^ HX ^ HX GG 


0.185 AP 


Eg 


V^LOg ^p^t^T 


Og TP 


MR ] 

\1+ MR/q^ ,j.p 
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^Ah 


0.185 AP 


Eg 


HX GG V LO J 

O 2 HX 2 2 .^.p 


,1 + MR, 


Og TP GG 


(^\ ( MR \ ^ \ 

V^h/ V HX GG \^LH ^P / 

H2 HX 2 2 pp 


’ MR > 
1 + MR, 


H2 TP GG 


lAh, 


0. 185 AP 


Eg 


'H 2 HX 


yl + MR^jj^ HX GG \ ^LHg ^T ^^T 


H 2 TP 


'yl + MR j 


H2 TP GG 


l^c\ 

In these expressions, same values as in opera- 

tion 5b (5). Pgq is found ^ below. 


(3) Determine 


(a) Find W. 


BD, 


for and for H, 


2* 



^Acc ^^max 


m' 


where 


W. 


BD, 


^Acc 

^max 

Pm 


= weight of propellants used from accumulator 
during one pump -off blowdown period, lb 

3 

= accumulator volume (input) , ft 

3 

= propellant density at T^,, P^^g^’ 

= propellant density at T„ , P^, Ib/ft^ 

(P^ fovmd in operation^2h) 
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(i) Calculate Wg. - (Ei) (F/Isp) (0j) for each interval in 
the AC PS duty cycle. 

(ii) Find WEq^ = We^ + WE 2 + WEg + + We^ for 

intervals ^ . such that 


Wei + WEg + WEg + + WEx > Wgjj , but 

We^ + WEg + WEg + + We^_3^ < W 

^ A 

One accumulator blowdown has occurred during the period 
6-^ through 6^ , inclusive. 

(iii) Find Wec 2 " '''^Ex+i + ^E^+2 + ^^x+y 

intervals 0^^^, , such that 

WEx+1 + We^+ 2 + WE^+y ^ "'bD, ■ “ 

A 

WEx+1 ^Ex+ 2 + + ^Ex+y_i < • 

A second accumulator blowdown has occurred during the 
period through . inclusive. 


(iv) Continue through the ACPS duty cycle with this procedure, 
and find the total number of accumulator blowdown events 
which occurs. 

(v) Call the total number of accumulator blowdown events N^, . 
The number of pump startup cycles is then Ng . since the 
pump must charge the accumulator prior to each successive 
blowdown. 


Eq 


= (P 


m 


- P ) 


Nc Vacc 


Wp 


E 




ax 


^m^ ^^max 


P ) 

m' 
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where 

Pp = pump inlet pressure for the propellant system being 
calculated, psia 

Wpg = W 02 for oxygen 
£ 

Wp„ = WHo for hydrogen 

NOTE: The use of Wo 2 g or Wh 2 jj for the calculation of 

APgq is an approximation ,^and yields a conservatively 
high value of APg^ . 

9. Determine Weight of Propellant Residuals in Accumulators: 

wRa = (p^) 

WRa is found for both the Og and Hg systems. 

10. Determine Weight of Propellant Residuals in O 2 and H 2 Lines, Fittings, 
and Valves: 

WRlFV == Vs^PSi + VS2f"S2 + VS3PS3 + VS4PS4 

where 
VSi 
^Si 

VS2 

^S2 

VS3 
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= volume of line system between storage tank and pump 
(Input) 

= density of fluid between storage tank and pump = 

f (T^., Pp), lb/ft3 

= volume of line system between pump and heat exchanger , 
ft3 (Input) 

= density of fluid between pump and heat exchanger = 

f (T., P^), lb/ft3 

= volume of line system between heat exchanger and engine 
flow pressure regulator; plus volumes of line systems 
between main line and gas generator pressure regulators 
or valves , ft3 (Input) 



LMSC-A991396 


Pgg = density of fluid in VSg volume , = f (Tg , P^) , Ib/ft^ 

VS4 = volume of line systems between engine flow pressure regulator 
and the engines , ft^ (input) 

^84 = density of fluid between engine flow regulator and the engines 

= f (Te, Pe), lb/ft3 


11. Determine Weight of and Fluid Turbopumps: 

A fixed gas temperature of 2000°R is assumed to the turbine: 


(a) Required input data for turbopump subroutine: 

W = flow rate through pump , Ib/sec (WQg or Wjj from 
operation Ic) ^tot "^tot 

NPSP= net positive suction pressure, psi (Input) 

AP = total pressure rise in pump, psia (APp from operation 2j) 

= fluid inlet temperature to pump , °R (Input) 

(b) Output from pump subroutine: 

Wpp = weight of turbopump , lb 
?7p = pump efficiency , percent 

7 ]^ = turbine efficiency, percent 

Atg = pump start time , sec 

12. Determine Weight of Hg Vent Requirements: 

(a) Compute weight of Hg vent required to absorb Hg tank and pump 
heat leak: 


W 


Vr2 


H 



(4 


T ^LL ^LL '^P ^P 


) r + fq 
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where 


Ah^ 

4rp 


qpAp 


q 


LL 


LL 


T 

N, 


AH 


TP 


f 


= heat of vaporization of hydrogen at , Btu/lb 

= heat leak into tank, from heat leak subroutine, 
Btu/hr-ft2 

2 

= tank surface area, ft 

= steady -state pump heat leak into pump, Btu/hr 
from heat leak subroutine 

= heat leak into liquid lines, from heat leak 
subroutine, Btu/hr -ft^ 

2 

= liquid line surface area between tank and pump , ft 

= total mission time to end of AC PS system use, hrs 

= number of accumulator charging events during 
the mission (from operation 8) 

W,pp = turbopump weight, lb (obtained from 
pump subroutine) 

= turbopump material mean specific heat, 
Btu/lb -°R (Input) 

Tp = gas temperature to the turbopump, °R 
(Input) 

= decimal fraction of turbopump heat estimated to reach 
storage tank (Input) 


(b) Compute weight of H2 vent required to absorb 02 tank and pump heat 
leak: 


Wv 


H 


2o 


(^at) 


-p A,J, + 


“’ll ^ll 


^P 


r + 


N f 

c TP q 
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^AT ^PH2 ^PH2 


where 


’p = average specific heat of H 2 between 35°R and 165°R, 
2 (Btu/lb-OR) 


(c) Perform iteration: 


'H 


'H 



2 

H 

^0 


> 

2h 



= Wv 

10 

0 

A 

0 

(N 


= Wv 


H2 


H 


H 


2o 


Determine Weight of Loaded Propellant: 

WFl = Wf^ + Wf^ + ^Fi^yv 


where 

Wfl 

Wf^ 

Wfa 

WFlfv 


= total loaded propellant 
= total propellant loaded in tank 
= total propellant loaded in accumulator 
= total propellant loaded in lines, fittings, and valves 


It is assumed that the propellants are loaded into the tanks, accumulators, 
and lines at the following conditions: 

®2* ^ 159. 7°R Pl = 14.7 psia 

p_ = 71.6 Ib/ft^ 2 percent ullage in tank 

1 j 
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= 14.7 psia 

3 percent ullage in tank 

The propellants in the lines downstream of the pumps and in the accumulators 

are then brought to and P by external , groimd means which are not 

hi m 

chargable to vehicle weight. 

(a) Calculation of : 

WFa = 

where 

= 71.6 for Og 

Pj^ =4.5 for Hg 

(b) Calculation of : 

+ VSg + VSg + Vs^) 

where 

= 71.6 for O 2 

Pj^ =4.5 for Hg 

(c) Calculation of Wp-p : 

Wf^ = ^u VTg Pp 

where 


H2: 


T, = 34.26 R 

r 

p^ = 4.50 1b/ft" 
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For ©2 : 

F = 0.98, P, = 71.6 

U. Xj 



where 


W 02 

= from operation 8 

'^Del 


Wo2^ 

A 

= from above 

WRa^ 

A 02 

= from operation 9 


= saturated vapor density at T 


For H 2 : 

F, = 0.97, p, =4.5 

U Xj 


Wh5 


Vt = 


'Del 


+ Wy 


H. 


Wh, 


WR 


AHr 


0.97 - pj^ 


H2 


Wy„ from operation 12. 
^2 


Determine Weight of Residual Propellant: 

WFr = Wr,j, + Wr^ + Wrlj^V 
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(a) Calculation of : 


Wrt = Vt, Pr 


(b) Calculation of Wr^ : 


Wra calculated in operation 9 . 


(c) Calculation of Wrj^P^ : 


Wrlfv calculated in operation 10. 


15. Determine Total Loaded Propellants; 


WFk , = W 02 + Wh 

tot L L 


16. Determine Total Residual Propellants: 


WFr = WO5, + WRr 
^tot R 


R 


17. Determine Storage Tank Weight: 

W-j- is obtained from the tank weight subroutine when V,p, and T^ 

are input. 


18. Determine Accumulator Weight: 

W^ is obtained from the tank weight subroutine when , ^max 

and Tj, are input. 
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19. Determine Helium Sphere Weight: 

(a) Compute volume of helium tank: 


He 


VTne = 


Sip 


He 


max 


'He. 


where 


Vt 


He 


He, 


'He 


max 


He. 


P = P 

Tnk 


3 

= volume of helium tank, ft 

= density of helium at T,p (^Tnk " ^SAT^ 

= density of helium at T,p, Pjj^ , where 

'^max 

Pjjg is input. 

^max 

= density of helium at conditions of: 

+ ^'^PR operation 4j) 


x-1 



where 

1 4 X 1.67 

X = 1.00 for slow withdrawal 
X = 1.67 for fast withdrawal 


(b) Compute weight of helium sphere: 

WTne obtained from the tank weight subroutine when Vtjj^ . 

^He ’ input. 

*^max 
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20. Determine Weight of Loaded and Residual Helium: 

(a) Compute Loaded Helium: 

Wl = V p 

He He “®max 

(b) Compute Residual Helium: 

' (%e) (H) ^ Ks^He^) 

(c) Compute residual in helium lines: 

Neglected, because helium spheres are considered closed- 
coupled to propellant tanks. 


21. Determine Weight of Gas Generator: 

Enter program Table 13 with gas generator flow , P 

^2 


and 

and obtain gas generator weights; , W^p 

2 


Flow is obtained from operation 5b (5) as follows: 


To 

O2 

HX GG: 

flow = Wi^ 

+ 

Wi2 

To 

»2 

HX GG: 

flow = Wjg 

+ 

W4 

To 

«2 

HX GG: 

flow = Wig 

+ 

^i6 

To 

»2 

TP GG: 

flow = Wi,^ 

+ 

00 


^c " ^max " ^GGp 

T = GG output temperature = T (operation 1) 

^ in 
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22. Determine Weight of System Lines, Fittings, and Regulators: 


Wlfr ^ input from subroutine CMPCAL 


23. Perform Summation of Subcritical System Weight: 


(a) Compute total system hardware weight: 


o WhX gg „ 

O2 


+ (wtpggo^ + ™TPGG„J + h- Wtj,J + + Wa„_ 




Wuv + ^iry 

. ^02 HXjj2 


.^TPo„ + w 


2 " '^TPh, 


ThX GG02 ^^ 2 / 

(wtP GGq Wxp gGh ) 
2 2 f 


WTo + Wt„ 

02 H2 


WAo + Wa. 


is obtained from operation 7 


is obtained from operation 11 


is obtained from operation 21 


is obtained from operation 21 


is obtained from operation 17 


is obtained from operation 18 


is obtained from operation 19 
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(b) Compute total weight of propellants loaded: 


W = W, + W, 

LDD Og 


'"vdd ' ro, " * «'hJ " K, " 

T/ ' V ' ^LFV ^LFV/ 


+ w. 


H. 


Wqo + W, 


H. 


is obtained from operation 13c 


"o, " "h, 

' ^A' 


is obtained from operation 13a 


^H2 

'' LFV LFV^ 


is obtained from operation 13b 


W, 


V 


is obtained from operation 12 


H. 


(c) Compute total weight of helium loaded: 


W. = (W + W 

'^He \ He„ ^e„ 


fWy + \ is obtained from operation 20a 


(d) Compute total weight of residual propellants: 


W. = W + W 

“tot„ ^tot„ 

S “2 
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+ W. 


R, 


H, 


+ 



+ W, 


LFV 


H. 


+ Wp 

S «2 


is obtained from operation 14a 


fWp + Wp 


is obtained from operation 9 


fWp + W„ |is obtained from operation 10 

^LFV„ ^LFV„ 

S “2- 


(e) Compute total weight of residual helium: 


W. 


R 


He. 



+ W. 


R 


He 


H. 



is obtained from operation 20b 
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MATH MODEL FOR SUBROUTINE AHIFL0 
PURPOSE OF SUBROUTINE 

Provide for computation of basic values required to perform on APU system para- 
metric analysis for either a sub-critical cryogenic system, or a super- critical 
system. 

PROCEDURE AND MODEL 


1. INPUT APU DUTY CYCLE 


2 . 


DCYCLE(l) 

DCYCLE(F+1) 

NEOP(l) 

HP(l) 

pamb(i) 


Time duration of each constant power time interval (min). 
Time duration of each non-operating time interval (min). 
Number of units operating. 

Total power extraction for each unit operating over each 
constant power time interval (horsepower). 

Ambient pressrme d-uring each operating period. Must account 
for back pressure imposed (by exhaust duct and hot gas side 
of heat exchangers) upon APU turbine. 


INPUT APU SYSTEM CHARACTERIZATION DATA 


NAPU 

HPR 

FMR 

PGG 

TIT 

TD 

MRGGCH 

MRGGC0 

TDGGH 

TDGG0 

TVH 

TV0 

TENV 


Number of operating APU units. 

Horsepower rating - each unit 
APU Fuel Mixture Ratio 
Pressure of gas generator inlet 
Turbine Inlet Temperature 
Exhaust Discharge Temp of Heat Exchanger 
H2 Conditioning Gas Generator Mixture Ratio 
02 Conditioning Gas Generator Mixture Ratio 
H2 Conditioning Heat Exchanger Discharge Temp 
02 Conditioning Heat Exchanger Discharge Temp 
Temp Residual H2 Vapor in Tank 
Temp Residual 02 Vapor in Tank 
Environmental Temperature Around APU System 
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3. COMPUTE THE AFU FL0 PARAMETERS ; 

(a) TOTAL HORSEPOWER CAPABILITY 
T0THRP = WAPU X HPR 

(b) jo POWER FOR EACH DUTY CYCLE 

PCTHP(I) = 100 ( HP(l) X MEOP ) 

T0THPR 

(c) CALCULATE TEMP OF FLUIDS AT APU GAS GENERATOR INLET (TPF) 

For: TIT = 2060°R TPF = 1,17 - FMR 

.000563 

TIT = 2260° R TPF = 1.27 - FMR 

.000556 

(d) FIND REFERENCE FLUID FLOW RATE (RRi) for each constant power 
time interval of the duty cycle from Table I for TIT = 2060°R, and for 
appropriate value of PGG, FMR, (% Power)., and PAMB., Linear 
interpolation of Table values is employed. 


Table 1 

Reference Fluid Flow Rate for Turbine Inlet Temp = 2200° R 


PGG 

FMR 

(psia) 

(Ratio) 

9OO 

0.5 

900 

0.5 

900 

1.0 

900 

1.0 

600 

0.5 

600 

0.5 

600 

1.0 

600 

1.0 

300 

0.5 

300 

0.5 

300 

1.0 

300 

1.0 


^ Power RR 


ii) 

(PAMB = 

0 

.762 

100 

6.650 

0 

.810 

100 

8.700 

0 

.840 

100 

7.130 

0 

.780 

100 

9.300 

0 

1.230 

100 

8.57 

0 

3.00 

100 

10.57 


RR 

Ih.l) (PAMB = 0) 

0.00 

6.42 

0.00 

8,45 

0.0 

6.53 

0.0 

8.58 

0.0 

7.52 

0.0 

9.60 
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(1) The Reference Fluid Flow Rate (RRj) is determined for each duty cycle 
interval (i): 

RR. = f (PGG, FMR, PAMB., PCTHP.) 

(2) Find total fluid flow rate over each interval (i) for TIT = 2260°R 

/tothpr\ 

= V ' 300. ) ^ 

(3) Total fluid consumed over the entire duty cycle (Mission), for TIT = 2260°R 

= ^QQ (RRj) (KCYCLE.) 

i=l 

where: KCYCLE^ = Operating time part of DCYCLE ARRAY. 

(e) FIND REFERENCE FLUID FLOW RATE CORRECTION FACTOR (KK.) for each 
constant power time interval of the duty cycle from Table 2, if TIT is 2060°R. 
Linear interpolation of FMR, PCTHP., and PAMB^ is employed. 


Table 2 


Reference 

Fluid 

Flew Rate Correction Factor (KK), 

for TIT 

PGG 

FMR 

^ POWER 

KK 

M 

900 

0.5 

0 

1.052 

1.050 

900 

0.5 

100 

1.088 

i.oUo 

900 

1,0 

0 

i.o 4 t 

1.068 

900 

1.0 

100 

1.068 

1.068 

6 00 

0.5 

0 

1.050 

1.087 

6oo 

0.5 

100 

1.082 

1.087 

6oo 

1.0 

0 

i.oUi^ 

1.067 

6 00 

1.0 

100 

1.064 

1.067 

300 

0.5 

0 

1.037 

1.078 

300 

0.5 

100 

1.069 

1.078 

300 

1.0 

0 

1.035 

1.062 

300 

1,0 

100 

1.055 

1.062 
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(l) The Reference Fluid Flow Rate Correction Factor (KK^) is determined 
for each duty cycle interval (i): 

KK. = f (PGG, FMR, PCTHP., FAME.) 


( 2 ) Find Corrected Total Flow Rate over each interval (i) for TIT = 2060°R. 



TOTHFR 

300 


X RR. X KK. 
1 1 


(3) 


Corrected Total Fluid Consumed over the enMre duty cycle (mission), for 
TIT = 2060 ° R 

i = n 

WDT = (- ^^ ) (HR. ) (KK ) (KCYCLE ) 

jUU 1=1 1 1 1 

where: KCYCLE is operating time part of the DCYCLE ARRAY, 


(f) CALCULATE SPECIFIC FLUID FLOW RATES AM) TOTAL SPECIFIC FLUID FLOWS (02 AND H2) 


For Oxygen: 


WDRH. 


1 


WD. 

1 

(1 + FMR) 


WDH 


WDT 

(1 + FRM) 


For Hydrogen: 


WD. 

^^*^1 = n + i"")' 

FMR 


WDT 

WD0 = ^ 1 \ 

FMR'^ 


(g) CALCULATE APU EXHAUST GAS TEMPERATURIS FOR EACH DUTY CYCLE INTERVAL. 


TE. 

1 


(WD.) (Cp)^^g (TIT) - 42,42 (HPp 

(WDi) (Cp)cB 
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where: Cp for the AHJ combustion products at 02 and H2 is computed from 

empirical data embodied in SUBROUTINE CSUPI 


Cp^_ = f (fmr, tit) 

(h) Compute heat available from combustion products - available to heat exchangers: 

(TE.) = TME . = (TE. + TD)/2,0 

1 mean i i ' 

(Cp^„) = CPE. = f (TME., FMR) 

CB mean i 

D. = CPE. (TE. - TD) 

1 11 

where Di is heat available to heat exchangers each duty cycle interval. 

NOTE: The nemonic nomenclature , employed is compatible with the subroutine listing. 
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MATH MODEL FOR SUBROUTINE APUSUB 
PURPOSE OF SUBROUTINE 

Subroutine APUSUB takes the basic flow calculations performed in sxibroutine APUFL0 
and proceeds to perform the sizing and weight calculations for a subcritical cryogen 
fluid supplied APU system. The subroutine is used in conjimction with subroutine 
CMPCAL to effect the sizing and weighing of the APU configuration and performance 
to a specified mission-duty cycle and performance constraints. 

MATH MODEL SYMBOL DEFINITIONS 


The symbols employed in the math model are defined in the following list. 


Symbol 


Definition 





Wd, 


'G. 


Heat transfer rate in heat exchanger between H 2 accumulator 
and APU gas generator during time period 0^, Btu/min 

Specific heat of H 2 in accumulator , Btu/lb-°R 

Temperature of H 2 in accumulator , °R 

APU exhaust flowrate through H2 heat exchanger between 
accumulator and APU gas generator, lb /min 


CPGi 


Specific heat of APU exhaust gas during 0^ 


Btu/lb-°R 



Heat transfer rate in heat exchanger between O 2 accumulator 
and APU gas generator during time period 0. , Btu/min 




Specific heat of O 2 in accumulator, Btu/lb-°R 

Temperature of Og in accumulator , *^R 

APU exhaust flowrate through O 2 heat exchanger between 
accumulator and APU gas generator, Ib/min 


Tpcp Condition gas generator gas exit temperature, °R 

MR^q Conditioning gas generator mixture ratio, O 2 /H 2 
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MRgGq 


Psth 


CpSTt 


PSTh 


PSTo 




TPDH 

HPHi 


H2 conditioning gas generator mixture ratio , Og/Hg 
Og conditioning gas generator mixture ratio , Og/Hg 
Hg conditioning gas generator exit temperature , °R 
Og conditioning gas generator exit temperature , °R 
Temperature of Hg in storage tank, °R 
Pressure of Hg in storage tank, °R 

Entropy of H2 in storage tank at Ts-pj^ AND PSTjj. Btu/lb-°R 
Temperature of Hg at PpDjj ^^H’ 

Hg pump efficiency, decimal fraction 
Specific heat of Hg at PsTh ^®Ph’ 

Density of Hg at PSTjj ^STjj ’ Ib/ft^ 

Temperature of in storage tank, °R 
Pressure of Og in storage tank, psia 

Entropy of Og in storage tank at Ts>Pq ^^nd Pg-pQ, Btu/lb-°R 

Temperature of Og at Ppp and Eiq, °R 

Og pump efficiency, decimal fraction 

Specific heat of Og at PsTq ^STq » Btu/lb -°R 

Density of Og at PsTq ^STo ’ 

Heat transfer rate in heat exchanger between H2 pump and 
accumulator during time period 0 . , Btu/min 

Total H2 flowrate for the O2 and H2 conditioning gas 
generators during interval 0 . , lb /min 

Enthalpy of H2 out of heat exchanger between pump and 
accumulator , during interval , Btu/lb 

Temperature of Hg out of Hg pump , °R 

Enthalpy of Hg out of Hg pump during interval 0 ^ , Btu/lb 
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HPOi 


Enthalpy of O2 out of heat exchanger between pump and 
accumulator, during interval 0 . , Btu/lb 

Enthalpy of O2 out of O2 pump during interval , Btu/lb 

Factor, defined in calculations , dimensionless 


^2 


Factor, defined in calculations, dimensionless 


1^3 

K4 

HgGCj^ 


Factor, defined in calculations , dimensionless 

Factor, defined in calculations , dimensionless 

Enthalpy of O2 system conditioning gas generator exit 
gas , Btu/lb 


HDo 


Enthalpy of O2 system conditioning gas leaving heat 
exchanger, Btu/lb 




GG 


D 


Specific heat of O2 system conditioning gas generator 
exit gas, Btu/lb -°R 


TD, 


GG, 


O 


Hdh 

^PGGjj 

TDgGh 

RGGp 


Exit temperature of O2 conditioning gas generator products 
from heat exchanger , °R 

Enthalpy of H2 system conditioning gas leaving heat 
exchanger , Btu/lb 

Specific heat of H2 system conditioning gas generator 
exit gas, Btu/lb -°R 

Exit temperature of H2 conditioning gas generator products 
from heat exchanger , °R 

Enthalpy of H2 system conditioning gas generator exit gas , 
Btu/lb 


q 



Heat transfer rate in O2 heat exchanger between pump and 
accumulator, Btu/min 



Total O2 flowrate for the O2 and H2 conditionii^ gas 
generator during interval p. , Ib/min 


PpQ Og pump discharge pressure, psia 

( Is PsSq ) propellant system pressure drop between pump and 

i APU at flowrate during interval 0 ^^ , psia 
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APsso.) 

' 1/max 

TpDo 

VSTH 

Wqgh 

WsVh 

PVh 

PVh 

Zvh 

TVh 

VSTo 

Wggo 

WsVq 

PVo 

PVo 

ZVo 

'^Vo 



WGGh. 

^ max 


WPh 

HPpo 


Maximum O2 propellant system pressure drop during any 
interval P. in the mission, psia 

Temperature of Og out of Og pump , °R 

3 

Hg storage tank volume , ft 

Total H2 quantity used for H2 and O2 conditioning durmg 
the mission, lb 

Total Hg vented during the mission, lb 

3 

Density of residual H2 vapor in H2 storage tank, lb /ft 

Hn tank residual vapor pressure, psia 

Compressibility factor of the tank residual H2 vapor , 
dimensionless 

Temperature of the Hg residual vapor in tank, °R 

3 

0„ storage tank volume , ft 

Total O2 quantity used for H2 3nd O2 conditioning 
during the mission, lb 

Total O2 vented during the mission, lb 

3 

Density of residual O2 vapor in O2 storage tank, Ib/ft 

O2 tank residual vapor pressxire, psia 

Compressibility factor of the tank residual O2 vapor , 
dimensionless 

Temperature of the residual vapor in tank, °R 
pump power , horsepower 

Maximum flowrate of H2 to the APU during any interval 0. 
in the mission, Ib/min 

Maximum flowrate of H2 to the H2 and O2 conditioning 
gas generators during any interval 0j^ in the mission, Ib/min 

Hg pump weight , lb 

O2 pump power , horsepower 
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Maximum flowrate of O 2 to the APU during any interval 0^ 
in the mission, Ib/min 

Maximum flowrate of O 2 to the H 2 and O 2 conditioning 
gas generators during any interval 0^ in the mission, Ib/min 


WPo 


Og pump weight , lb 


^KXlH2. 


Weight of H 2 heat exchanger between pump and accumulator 
for any interval 0 j , lb 


^HXlH2 


Maximum value of WhXljj for any interval 0^ during the 
mission, lb ^i 


WHXlo^i 


Weight of 02 heat exchanger between pump and accumulator 
for any interval 0. , lb 




Maximum value of Whxtq interval 0i during the 

mission, lb ^i 


WsAh 

zsah 

zsah. 


Weight of H 2 accumulator, lb 

Compressibility factor for H 2 at conditions of PPDjj 
and TsAjj > dimensionless 

Compressibility factor for H 2 at conditions of Pqg ^-nd Tp^, 
dimensionless 


ZsAo 

ZSAo 

WrsAh 

WHsAq 

WhXgh2. 

WHXgh2 

WHXGO 2 . 

WHXGO2 

wsrh 


Compressibility factor for O 2 at conditions of PpDq 3-iid Tg^ 

Compressibility factor for O 2 at conditions of Pqq s^Jid Tp^ 

Residual propellant in H 2 accumulator, lb 

Residual propellant in O 2 accumulator, lb 

Weight of H 2 heat exchanger between accumulator and APU, 
for any interval 0^ , lb 

Maximum value of WhXgh 2- interval 0. during the 

mission, lb ^ 

Weight of O 2 heat exchanger between accumulator and APU , 
for any interval 0^ , lb 

Maximum value of WjjXgq for any interval 0. during the 
mission, lb “^i 

Weight of residuals in H 2 storage tank, lb 
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W, 


SRo 


w, 


GGG 


H 


W, 


GGG 


O 


Ws, 


^2syS 
WSq 

'^2sys 

WsPsYS 


Weight of residuals in storage tank, lb 
Weight of Hg conditioning gas generator , lb 
Weight of Og conditioning gas generator , lb 
Total weight of H 2 subcritical system , lb 
Total weight of O 2 subcritical system, lb 
Total weight of subcritical propellant system , lb 


THE MATH MODEL EQUATIONS 


The equations and calculational procedures required for the subroutine are given in 
the following subparagraphs: 


1. Heat Exchanger Analysis Requirements 


(a) Required input data for heat exchanger subroutine: 


W, 




in 


Pc, 


in 


Cout 



= weight rate of flow of cold fluid , lb /sec 

= cold fluid inlet temperature , °R 

= cold fluid inlet pressure , psia 

= cold fluid outlet temperature , °R 

= cold fluid pressure drop across HX , ps-i 

(Input maximum permissible value or 0.2 Pc. 
whichever is the smaller. If no APC is 
input, the heat exchanger subroutine will assume 
a value which gives minimum heat exchanger weight 
or volume . ) 

= weight rate of flow of hot fluid, Ib/sec 

NOTE: As an alternative, MR can be input for the heat 
exchangers between the accumulators and APUs, 
and MRqc for the gas generator -fed heat 
exchangers , and the heat exchanger subroutine 
will calculate Wj^ . 
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MR 


MRgg 


^hin 

'^hout 

Phin 

^^out 


= O2/H2 ratio of the A PU, lb /lb 

(Can be input as alternative to Wh for the heat 
exchangers downstream of the accumulators.) 

= O2/H2 ratio of the gas generators, lb /lb 
(Can be input as alternative to Wh for the gas 
generator -fed heat exchangers.) 

= hot fluid inlet temperature , °R 

= hot fluid outlet temperature , °R 

= hot fluid inlet pressure , psia 

= hot fluid outlet pressure , psia 

(Input minimum permissible value or 0. 6 Phj^jj^> whichever 
is the larger. If no Ph^^^ is input, the subroutine will 
assume a value which gives minimum heat exchanger weight 
or volume.) 

= identity of cold fluid, O2 or H2 


Which is preferred, minimum weight or minimum volume? 


(b) Output; 


W, 


tot 


Hot 

^^htot 

^^Ctot 


Gout 


= heat exchanger weight , lb 

3 

= heat exchanger volume , in. 

= hot fluid pressiire drop, psi 
= hot fluid outlet pressure , psia 
= cold fluid pressure drop , psi 
= cold fluid outlet pressure, psia 


Find Weight of Heat Exchanger Between H2 Accumulator and APU 


Find WhXa > ^Ph» A Pc (44u ) , with input of H2 fluid, 

. ^ «i max 

0.0166 Wpjj. , TsAjj. Tpj, Pgg. 0.0166 WDg.. Tp), P-pj.’ 

and ^P of the cold and hot fluids if desired. 
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where 




is determined in calculation 8 

is taken from thermo tables for TsAtt 

H 


Maximum heat exchange occurs when Wdjj is maximum, for given values 
of Tpj and TsAjj- ^ 




W 


max 


^G. ^PGi ^'^Ei “ 


where 

^PG. 

1 

^Ei 

Td 

TSAjj 

TPf 

PTE 

MR 


is obtained from H 2 - O 2 Combustion Products Table for Tg. 
and MR ^ 

is determined in calculation 11 

is input 

is input 

is input 

is input, assumed value of APU turbine exhaust pressure at heat 
exchanger inlet 

is input 
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Find Weight of Heat Exchanger Between 02 Accumulator and APU 


Find Wjjxq> and AP^ for WGq. with input of O 2 fluid, 

0.0166 WDq. . TsAq. PqG’ 0*0166 W^j., Te-, Tq, PtE > MR, 


and AP of the cold and hot fluids if desired. 


4 gq. - WDq. (tpj - TsAo) 


riG, 


Oi 


Wdt. = 


max 


^i ^PGj “ Tp)) 


Gas Generator Temperature Vs Mixture Ratio Data 

Input table , showing as a function of MRqgq and 

linearly for values of Tqqq between MRqq^^ and TgA 


1'SAfj • Interpolate 
, values shown in 


Table 1. 


Table 1 

mrggc» tsajj. and Tggc values 


^GG„ 

c 

TsAh 

T 

GGc 

0.8 

300 

1742 

0.9 

300 

1905 

1.0 

300 

2068 

1.1 

300 

2234 

0.7 

400 

1674 

0.8 

400 

1838 

0.9 

400 

2002 

1.0 

400 

2165 

0.7 

500 

1764 

0.8 

500 

1927 

0.9 

500 

2092 

1.0 

500 

2256 
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Table 1 (Cont'd) 





0.6 

600 

1690 

0.7 

600 

1857 

0.8 

600 

2022 

0.9 

600 

2188 

0.5 

700 

1625 

0.6 

700 

1788 

0.7 

700 

1952 

0.8 

700 

2116 

0.9 

700 

2278 


Use selected values of MRoG^ to find Tqq^ from Table 3. Note 

that TgGq^ may be found for MRgGqjj for H 2 , and TgGq^ may be found for 
^^GGgq for ^2 ‘ 

5. Calculation of (WGGtr 1 and (wgG/-, ) 

^ ^i/max V ^i^max 



Woi + W02 





where 



W 

°i 

= O2 

flow rate 


= °2 

flow rate 

"'Hi 

= ^2 

flow rate 

"'h„ 

= «2 

flow rate 


to condition Og, Ib/min 
to condition H 2 , Ib/min 
to condition © 2 . Ib/min 
to condition H 2 , Ib/min 
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(Kl K4 - Ki) (-KjKj) 

W =, ^ max ' ^^max 

(K^ + + K2 K3 - K4 - 1) 


W 


W 


Doj (-*^ 2 *^ 3 )-^ 
^ max 


O. 


K) 

max 


(Ki Kg Kg) 


(K^ + K^ + Kg Kg - K^ K4 - 1) 


W 


D 


O. 

1 


(Kg K 4 - Kg) + /W 


W. 


max 


Djj (-K2K3) 

^ max 


H, 


(K^ + K^ + Kg Kg - K^ K4 - 1) 


W. 


max 


(-KgK^) 


• (M 

max 


(K^ K4 - K4) 


H. 


(K^ + K 4 + Kg Kg - K^ K 4 - 1) 


/{| _ V, \ 

( \ 


MR 


U + MR 


OgHX 


Og HX GG 


0.185 AP 


EST 




MR 

,1 + MR 


Og TP 


Og TP GG 


NOTE: If the O2 pump is motor driven instead of turbine driven, the value of 
the terms with a TP subscript is zero. 



but 


°in 


out, 


(1 + mr)q 


HX GG 


OgHX 


0.185 AP 


EST 


PLOs'lpnxC'Xi^ - 


( - 1 

\1 + MR 


O 2 TP 


O 2 TP GG 
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0.185 AP. 


EST 


2 \ / 


(i + mr) 


»2 TP 


Hg TP GG 


*^out °in 

K - K 

in out, 


(i + mrI 


H2 HX 


Hg HX GG 


0.185 P 


EST 


PLH2 ’’^P ^T 


^^EST PgG ^^ESTSYsj ' ^ST 


/h'j' h,p \ 

\ ^in ^out I 




(1 + mr) 


»2 TP 


H 2 TP GG 


where 

TqG 
AP 


EST SYS 


^ST 

PLO, 

plh^ 

lip 
T] rji 


= propellant pressure at APU , input 

= estimated pressure drop of the flow system downstream of 
the pump, including pressure regulators and heat exchangers, 
input, psi 

= storage tank pressure , input, psia 

= density of Oo at T^t, and P„_, 

2 STq STq 

= density of H2 at Tg,p and Pg.^, 

H H 

= estimated pump efficiency , decimal fraction, input 
= estimated turbine efficiency , decimal fraction, input 
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"out 


*^in 


out 

m 


out 


= propellant outlet enthalpy , Btu/lb (from tables, for 
^^EST 

= propellant inlet enthalpy , Btu/lb (from tables, for 


AP. 


EST 


+ 15, Tg,p) 


= HX gas outlet enthalpy , Btu/lb (from tables, for 0.6 Pqq Tj^) 

= HX gas inlet enthalpy , Btu/lb (from tables, for Pqq. ^ 

C 

= gas outlet enthalpy from turbine , Btu/lb 
(from tables , for Pa mb 10. T™ ) 

out , 


P ^GG- '*'gO„ 

out C C 


1 - 


'P.™+ loX^G 
AMB 

p 

GG 


R 


T. 

in 


= gas inlet enthalpy to turbine, Btu/lb (from tables, 

Ti \ 


^GG’ ^GG^^ 


Find Weight of Heat Exchanger Between H2 Accumulator and H2 Pump 


Find WhX 5 » APj^ and AP^ for 

Wdjj + WgGjj . TsTh’ 

^ 1 max 

TgGq. Tq, ^sAj^’ MRGGCjj. 

Use heat exchanger subroutine. 


qtiTj . with input of H„ fluid, 0.0166 
^iii max 

I'SAjj’ ^PDjj> 0.0166 ^GGjjx- 

max 

and AP of the cold and hot fluids if desired. 



from operation 5 



from input accumulator pressure 




0.0166 



W, 


GG. 


maximum 


from operation 5 
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7 . Find Weight of Heat Exchanger Between O 2 Accumulator and 02 Pump 

Find WhXy» AP^ for 4?q. . with input of Og fluid, 0.0166 

Wd^. + WgGo, . TsTq- TsAq.™”' PPDO' "•"I®® *GGHXi 

1 1 TY19V 

"^GGc ’ ’ ^SAq ’ ^^GGqq ’ fluids max 

if desired. Use HX subroutine. 

Values for the above quantities are foimd as in operation 6. 

8. Calculate H 2 Vent Requirements 

It is planned that the vented H 2 which absorbs the H 2 tank and pump heat leak 
will then be used to absorb the O 2 tank and pump heat leak before being vented 
overboard. Therefore, venting of H 2 only is considered, and the quantity of H 2 
vented is determined by the higher requirement as established by the Hg system 
and O 2 system heat leaks, respectively. 

(a) Weight of H 2 required to absorb H 2 tank and pump heat leak: 

"sVHg = Ai^ (^T * ^LL ^LL * % ^ ^TP 'q 

heat of vaporization of H 2 at Tg-pj^ , Btu/lb 

2 

heat leak into the tank from heat leak subroutine, Btu/hr-ft 
~ f (Insulation, 

H 2 tank surface area, ft^ 

At = 4.84 


where 

q,p 
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W 


D 


+ W, 


VsT 


H 


GG 


H 


H 


EST 


4.36 - 


’V 


H 


from subroutine APUFL 0 

J-'tt 


W. 


GG 


H 




H 

A 


P 


density of saturated vapor at TsTjj PsTh 

steady -state heat leak into H2 pump, from heat leak 
subroutine , Btu/hr 


^LL 


'LL 


= heat leak into liquid lines between tank and pump , from 
heat leak subroutine, Btu/hr -ft 2 

2 

= liquid line surface area between tank and pump , input , ft 


<r = total mission time to end of APU system use, hrs 


N 


c 


= number of pump start cycles during the mission (number 
of APU system starts), input 



W,pp = turbopump weight , lb (obtained from pump subroutine) 

CpTp = turbopump material mean specific heat, input, Btu/lb-°R 

^GG(3 ~ temperature to the turbopump, °R 

f = decimal fraction of turbopump heat estimated to reach 

storage tank, input 

(b) Weight of H2 required to absorb O2 tank and pump heat leak; 


WsVh 


O 





*^LL ^LL 


\) 


Nc^Tpfql 
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A^, 'ip Ap, <iLL. "^LL* '’’’ ^c’ ^^TP’ same 

definitions as in part (a), above , except as applied to the ©2 system. 


Ah^T Cpjj^ 130 Cpjj^ 


^Dti = average specific heat of Ho between 35°R, and 165°R, 
^^2 Btu/lb-OR 


(c) Compare WfiVu and Wovu : 

% 

If WsVh - WsVh . WsVh = Wsvrr 

If Wsv« < WsVu . WgViT = Wsv„ 

xir Hq n xIq 


Calculate Weight of H 2 Storage Tank 


VST„ “ 


w + w + w 


4.35 - 


PV. 


H 


Wpj is found from calculation (8) 
H 


n 


W 


GG 


H 




''^GG„ <ei' 

1 ' ”i/ 


Wq,, is found from preceding operation 8. 


Py = density of saturated H 2 vapor at Tg^jj and PSTjj 


H 


Wjjrp Is found from the tank weight program. 
STr 
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Calculate Weight of Storage Tanks: 


V 


GGq 


STq 70.0 -P^ 


O 


W„ = is found from Subroutine APUFL0 

"/-V 


W 


GG, 


O 


<« 1 > 



= density of saturated Og vapor at Tg^ and Pg^ 
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11. Calculate LH2 Pump Weight: 

A turbine driven pump is assumed, and a gas temperature of 2000°R is assumed 
to the turbine. The turbopump subroutine is used. 


(a) Required input data to turbopump subroutine: 


W 


NPSP 

AP 

T. 


= flow rate through pump, Ib/sec 

(w ^ j 

'max 

= net positive suction pressure , input , psi 
= total pressure rise in pump, psi (PpDjj " 15) 
= fluid inlet temperature to pump , °R (Tgxjj) 


(b) Output from pump subroutine: 


W, 


TP 


Tip 

Tl-P 

At 


= weight of turbopump , lb 
= pump efficiency , percent 
= turbine efficiency, percent 
= pump start time , seconds 


12. Calculate LO 2 Pump Weight 


Same procedure as in operation 10, above, except for Og system. 


13. Calculate Weight of H 2 Accumulator 
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where 


RrpP = reference propellant flow rate from Table 1, corresponding 
to 100 percent power, MR = 1.0, Pamb = 14.7, and the 
value of Pqg selected in APUFL0. 



the lesser value of the programmed cvirves of ) 
aluminum, respectively, corresponding to Tca'*.^' 


for steel and 


found from the programmed thermodynamic properties of 
hydrogen for PpDjj and Tp^ . 


^SAHe 


found from the programmed thermodynamic properties of 
hydrogen for Pqq and Tp^ . 


Calculate Weight of O 2 Accumulator 



where 




ZsAo 

ZsAo 

e 


reference propellant flow rate from Table 1, corresponding 
to 100 percent power, MR = 1.0, Pamb = 14.7, and the 
value of Pqg selected in APUFL0. 

the lesser value of the programmed curves of I for steel 

and aluminum, respectively, corresponding x^^u/ 
to TsAq . 

found from the programmed thermodynamic properties of 
oxygen, for PpDq Tp^ . 

found from the oxygen thermodynamic properties for P„„ 
and Tpj . tlG 
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15. Calculate Weight of H 2 Accumulator Residual Propellant 




(HPr) (Rj^ 


FP 


36,000 


) 


16. Calculate Weight of 02 Accumulator Residual Propellant 




(HPj^) (Rj^ 

36,000 


FP 


) 


17. Calculate Weight of H 2 Storage Tank Residual Propellant 


W, 


SR 


H 


’V 


H 


rW + W 

% 

4.35 


+ W, 


sv. 


H 


Pv. 


H 
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W_ is found from subroutine APUFL0 

•L'tt 


)(8l) 

1 l' 

WsVtt is found from the heat leak/vent program for the total mission 
H 

duration. 


PVh 


density of saturated propellant (H 2 ) vapor at Tg.^, and Pg.p 


18. Calculate Weight of O 2 Storage Tank Residual Propellant 





+ W 


GG 


O 




is found from subroutine APUFL0 


W 


GG 


O 


n 

1 1 


WsVq is found from the heat leak/vent program for the total mission duration 


PVq = density of saturated O 2 propellant vapor at T 


and P, 


ST 


ST 


O 


O 


19 . Weight of H 2 System Gas Generator 


WHo is found from AiResearch data of gas generator weight, as a function of 




and MR„„ and T„a 

oA ^ 

max ” 
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20. Weight of O 2 System Gas Generator 


WOo is found from AiResearch data of gas generator weight, as a function of 
GG\ 


('^oooj 


, MRq„ , and Tg^ . 
max ^ 


21. Total Weight of H2 System 


= w + W + W + W„,. + W™ + W^ + W^ 

^2syS °H ^4 


^SA Wjj + W 

H GG LINES AND FITTINGS 


22 . Total Weight of O 2 System 


^Son = + Wg„ + W + W „ + W_ + W^ + W.. 

®2sys °0 


" " '^HX, " "'O, V 

O GG LINES AND FITTINGS 


23. Total Weight of Subcritical Propellant System 


W = W + W 

'^SPSYS '^S '^S„ 

2 SYS ^2 SYS 


MATH MODEL CONFIGURATION 

The configuration concept upon which the subcritical APU model is based is 
illustrated in Fig. APUSUP-1. 
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MATH MODEL FOR SUBROUTINE APUSUP 
PURPOSE OF SUBROUTINE 

Subroutine in APUSUP taken as input the basic energy and flow calcula- 
tions performed in subroutine APUFLO and precedes with the computations 
necessary for the sizing and weighing of component assemblies for a 
supercritical fluid supplied APU system. The subroutine computes the 
sizing and weight parameters for the major components (tanks, heat 
exchangers, gas generators, etc.). Subroutine CMPCAL then supplies 
the weight and pressure drop data for the minor components (lines, 
valves, etc..). 

The routine configuration is analyzed to the specified input mission 
duty cycle and performance constraints. 

MATH MODEL SYMBOL DEFINITIONS 

The symbols employed in the math models are defined in the following 
list: 

Symbol Definition 

HP = total power extraction over a constant-power time interval, HP 

HP^= total power extraction over time interval 0^ HP 

HP = rated horsepower of each APU in operation, HP 
r 

^AMBi + ambient pressure during interval (i), psia 

N = number of APU's in operation 

T = APU turbine inlet temperature, °R 

MR = APU mixture ratio, O/F, dimensionless 

P„„ = final H2 tank pressure, psia 

In ^ 

Tp^ = temperature of delivered propellants at APU gas generator inlet, R 

T_„ = final H2 tank temperature, °R 
iH 

P„^ = H2 and 02 pressure at APU gas generator inlet, psia 
GG 

Power) i = percent of HPi relative to total available power, percent 
R = Reference propellant flow rate, Ibs/min. 

R = Reference propellant flow rate diiring interval (i), Ibs/min. 

Ri 
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-■0- = Constant-power time interval, minutes 

'0- = Duration of time interval (i), minutes 
i 


= Total propellant flow to ARJ, lbs. 

tP' = Delivered flow rate over time interval -0'. , Ibs/min 
Di 1 Q 

= Correction factor to reference propellant flow rate for 2060 R 
turbine inlet temperature, for conditions during interval (i) 

= Total H2 delivered to APU gas generator, lbs. 

^Dn 

iL = Weight rate of H2 flow during time period -0i, Ibs/min. 

DHi 

= Total 02 delivered to APU gas generator, lbs. 

=: Weight rate of 02 flow during time period *0i, Ibs/min. 

P„ = Final 02 tank pressure, psia 
fo 


T 


fo 


Final 02 tank temperature, R 


(P^„\ . = H2 conditioned Propellant tank min. pressure, psia 

CHjmin 

. = 02 Conditioned Propellant tank min pressure, psia 

CO min 

Pj^j^ = Input value of H2 tank conditioned pressure,^ 


CH^ 


P^^ = Input value of 02 tank conditioned pressure,.^ ^^Co^ 

= enthalpy of H2 at Tp^ and Pqjj, btu/lb 
= enthalpy of H2 at T and P^„ w„/vn 

rii ri OHj DtU/ ID 

= enthalpy of 02 at T^. and Pq^j btu/lb 
Tp = APU Trubine exhaust temperature, °R. 

Tp^ = APU Turbine exhaust temperature over time interval *0i, °R. 

Cp^ = Specific heat of gas to the APU turbine, btu/lb °R 

• = Heat transfer rate in Heat Exchanger between H2 accumulator and 
APU gas generator during time period -01, btu/min. 

Cpj^ Specific Heat of H2 in H2 acciimulator , btu/lb °R 


T.„ = Temperature of H2 in H2 Accum., 
An 


o. 


R 


<U(>p . = APU exhaust flow rate through H2 heat exchanger between H2 

Accumulator and APU gas generator during time period Oi, Ibs/min 
Tp = Exhaust discharge temperature from heat exchanger, °R 
C?£.U = Exhaust gas specific heat at conditions Tp^ and MR, btu/lb °R 
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transfer rate in Heat Exchanger between 02 accumulator and 
APU gas generator during time period -0\, btu/min 
= Specific Heat of 02 in 02 accumulator, btu/lb °R 
T^i; = Temperature of 02 in 02 Accum., °R 

exhaust flow-rate through 02 heat exchanger between 02 


accumlator and APU gas generator during time period Oi, Ibs/min 


transfer rate in Heat Exchanger between H^ tank and H2 
accumulator during time period di, btu/min 
I = Temperature of H2 in H2 tank during interval , °R 
C'pg ^ ' = Specific heat of tanked H2 during interval -0r , btu/lb °R 

= Heat transfer rate in Heat Exchanger between 02 tank and 02 
accumulator during time period-©-^, btu/min 
= Specific heat of tanked 02 during interval btu/lb °R 
T/c.^ = Temperature of 02 in 02 tank during interval , °R 

= APU exhaust flow through H2 heat exchanger between H2 tank and 
H2 acciimulator during time period©^, Ibs/min 
= APU exhaust flow through 0^ heat exchanger between 0^ tank and 
0 accumulator during time period-©., Ibs/min 

r ^ X 

“ Heat transfer into H^ tank during interval-©^, btu/min 

= Heat transfer into H^ tank during interval 0^, btu/lb with- 


drawn 



= APU exhaust flow through H^ tank heat exchanger during time 
interval-©^, Ibs/min 

= Heat transfer into 0^ tank during interval-©, btu/min 

= Heat transfer into 0^ tank during interval©^, btu/lb withdrawn 
= APU exhaust flow through 0^ tank heat exchanger during time 
interval ©T, Ibs/min 

Wc„ = Weight of Hg tank heater circulating compressor, lbs 
“ ^2 ^°"'P^®s®iHility factor at and 
-2-^ , = ^2 compressibility factor at Pfo and n. 

=. Max H^ propellant consumption rate at any point in APU duty 
cycle, Ibs/min 
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- 


O 

Tanked density at end of useable H supply, Ib/ft 


= Specific heat of tanked at end of useable supply, but/lb R 


Whx 


A-c 


weight of heat exchanger between accumulator and AFU gas 
generator, required to meet the heat exchange demand over 
interval -0\ , lbs 


W, 


HAo 


= max value of ‘Wj^-^^over the AHJ duty cycle, lbs. 

\fj = weight of 0 heat exchanger between 0 accumulator and AFU gas 

generator, required to meet the heat exchange demand over inter- 
val , lbs . 

1 

max value of over the APU duty cycle , lbs . 

Wha% ” weight of heat exchanger between tank and accumulator, 
required to meet the heat exchange demand over interval-©^, lbs. 
= max value of over the APU duty cycle, lbs. 

= weight of Og heat exchanger between 0^ tank and 0^ accumulator, 
required to meet the heat exchange demand over interval -©\, lbs. 
Whxc = max value of glover the APU duty cycle, lbs. 


weight of tank conditioning heat exchanger, required to 


meet the conditioning demands over time interval-©-^, lbs. 

W^Xc = max value of Wwxt over the APU duty cycle , lbs . 

W . • = weight of 0 tank conditioning heat exchanger required to meet 
the conditioning demands over time interval ■©•^, lbs. 

= max value of duty cycle, lbs. 

'^to “ Weight of Og tank heater circulating compressor, lbs. 


''H,) 




= Max 0 propellant consumption rate at any point in APU duty 
max 2 


Poc 


3' 


cycle, Ibs/min 

Tanked 0^ density at end of useable 0^ supply, Ib/ft 
Specific heat of tanked 0 at end of useable Op supply, btu/lb R 


'W-y = 0^ storage tank weight, lbs. 

Wru = storage tank weight, lbs. 

= Weight of vented during mission, lbs, 
f ^ \ = Tank material density/strength ratio, ^in. x 10 

I Ft- 1 

W, 


-6 


AH 


= Weight of Residual H in storage tank, lbs, 
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'^Ro = Weight of Residual 0^ in storage tank, lbs, 

= Weight of accumulator, lbs. 

“ Reference propellant flow-rate at 100^ power, MR = 1,0, 

^A/nB = 1^.7, and applicable value of 
= Hydrogen compressibility factor at ^ and "T^ ^ 

;?AUe “ Hydrogen compressibility factor at and 
'^l\Q = Weight of 0^ accumulator, lbs. 
ii\o = Oxygen compressibility factor at R:o and Tao 
'■^Aoc “ Oxygen compressibility factor at and o 

= Weight of H^ acciimulator residual propellant, lbs. 

= H^ accumulator Hydrogen capacity, lbs. 

= Weight of Og accumulator residual propellant, lbs. 

XAl'ij = Og accumulator Oxygen capacity, lbs. 

= Total weight of H^- Supercritical System, lbs. 

= Total weight of 0^ Supercritical System, lbs. 

\A/p s/^i ~ Total weight of Supercritical Propellant System, lbs. 

“ ^2 rate to supplemental gas generator, Ibs/min (during 

period ) 

A * ^ ' 

= Reduction of ^ during required to make sum of APU 
exhaust requirements equal to the value of APU exhaust 
available during period , if the sum required is larger 
than the available quantity. 

H-Tu^ = enthalpy of H^ in tank at conditions and btu/lb 

Htc o enthalpy of 0^ in tank at conditions T^c ^ and Pc.c btu/lb 

Tfc = gas temperature from supplemental gas generator, °R 
mQ = mixture ratio to supplemental gas generator, O/F 

= gas specific heat from supplemental gas generator, btu/lb °R 
= total H^ flow rate to accumulator during Ibs/min 

= total Og flow rate to accumulator during ©\, Ibs/min 

t,o^c oc “ rate to supplemental gas generator during-©-^, Ibs/min 

- enthalpy increase imparted to H^ by supplemental gas during 
interval -©n , btu/lb 
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( Pcu ) “ corrected value of (Pch) min to account for supple- 

V 'm>Ac 

mental gas generator flow, psia 
= corrected value of (P^)min to account for supplemental 
gas generator 0^ flow, psia 
= max value of during any Ibs/min 

= max value during any-©;:, Ibs/min 




= corrected value of 




to account for reduction in gas flow. 


and increase in H flow due to supplemental gas gen H flow, 
/ 2 
btu/min 


= corrected values of60u^^, Ibs/min 


f 


■iC 


- corrected value of 




to account for increase in 0^ flow due 


to gas gen. 0^ flow, btu/min 
“ corrected value of cOde^ to account for flow rate change due to 
gas gen. 0^ flow, Ibs/min 

” corrected value of to account for increased flow due to gas 

gen. flow, btu/min 

‘^Pccc = corrected value of to account for flow rate change due to 

gas gen. H flow, Ibs/min 

, = corrected value of 'to account for increased flow due to gas 
gen. 0^ btu/min 

= corrected value of P<-^op^to account for flow rate change due to 
gas gen. 0^ flow, Ibs/min 

We,, - sum of supplemental gas generator consumption over the duty 
cycle , bis . 

= sum of supplemental gas generator 0^ consiomption over the duty 
cycle , lbs . 

= supplemental heat exchanger weight to accommodate requirements 
during any interval , lbs 
= max value of bhe duty cycle, lbs. 

We- = supplemental gas generator weight, lbs. 

= max value of during any ©\ , Ibs/min 

= max value of during any -©^, lbs/ min 

'\mK~ value of during any-©., btu/lb 




(ah. 


^efe^ence flow rate to supplemental gas generator, Ibs/min. 


C-84 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


= Reference reduction of during 'O7 required to make sum of 

APU exhaust requirements equal to the value of APU exhaust 
available during 0^ 

K5 i= factor, defined in text 
K6 = factor, defined in text 
K7 = factor, defined in text 


THE MATH MODEL EQUATIONS 

The equations and calculational procedures required for the subroutine 
coding are presented 'in the following sub paragraphs. Repetitive terms 
appearing herein were isolated and given specific variable names in the 
coded program in order that repetitions programming might be avoided. 


1. Input APU Duty Cycle: 
a) 


b) 

c. 


HP^ - Total power extraction over each constant -power time 
interval horsepower 


= Time duration of each constant-power time interval, minutes 
0 Pa„a- = Ambient pressure during each 6-. interval, psia. This 
input must include allowance for the back pressure 
imposed by the exhaust duct and heat exchangers upon 
the APU turbines. 

lA. Input total number of APU's operating (W) , and their maximimn indi- 
vidual rating (HP-) 

2. Find percent power for each duty cycle point: 

{% Power = 100 (J^) 

3. Input turbine inlet temperature: (T) = 2060°R or 2260°R 

a) Input mixture ratio: (MR) 

b) Calculate X = 20A0 — — 

rov i j- 0-000 5b3 


For Tr = ‘’R. 




4. Input pressure of H^ and 0^ at APU (Pe^):- (SOOj 6OO, or 9OO psia) 

5. Input Table 1 

a) Find reference propellant flow rate (RrJ for each constant- 
power time interval (■©■^) of the duty cycle from Table 1, for 
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"[^ = 2060 or “T^ = 2260 °Rj and for appropriate values of , MR, 

Power); and Interpolate linearly for MR, Power, and 


TABLE 1 




°!o Power 

Rr ^ 

pA^ft = 14.7 

Rr @ 

PamP. = 0 

900 

.5 

0 

.762 

0 

900 

.5 

100 

6.65 

6.42 

900 

1.0 

0 

.810 

0 

900 

1.0 

100 

8.70 

8.45 

600 

.5 

0 

.840 

0 

600 

.5 

100 

7.13 

6.53 

600 

1.0 

0 

0 

00 

• 

0 

600 

1.0 

100 

9.30 

8.58 

300 

.5 

100 

8.57 

7.52 

300 

1.0 

0 

3.00 

0 

300 

1.0 

100 

10.57 

9.60 

Find total propellant flow rate over each interval X > I-T 

, over time interval 

a) Find total propellant used over the entire duty cycle, for 


2260°R 

Wp^. 


) 


7. Input Table 2 

a) Find total propellant flow rate over each interval 6-. , for 

Interpolate linearly for MR, % Power, and 

b) Find total propellant over the entire duty cycle, for Ti- = 

Wp^ = ItAOlP^ (R«.)(e-.)(K<.) 

300 
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TABLE 2 



Correction Factor 

for T,1,J, 

= 2060°R. 





KkCS 

Kk Q 

Pfefer 

m 

io Power 

Pama. = 14.7 

- 0 

900 

.5 

0 

1.052 

1.09 

900 

.5 

100 

' 1.088 

1.09 

900 

1.0 

0 

i.o4? 

1.068 

900 

1.0 

100 

1.068 

1.068 

6oo 

.5 

0 

1.050 

1.087 

600 

.5 

100 

1.082 

1.087 

6oo 

1.0 

0 

1.044 

1.067 

6oo 

1.0 

100 

1.064 

1.067 

300 

.5 

0 

1.037 

1.078 

300 

.5 

100 

1.069 

1.078 

300 

1.0 

0 

1.035 

1.062 

300 

1.0 

100 

1.055 

1.062 


8. Calculate and 


CO 




:z. uOo, 


li- (v\R. 

a) Calculate \A/oh and Wq,: 


W 


6^ 


Do 


'.c 


2r. 


^ = 


Determmine min. required Propellant Tank pressure, 




psia: 


(?cL=P..^(ar) 




where 


(‘iPO, 


is found for 






10. Determine AFC exhaust gas temperature; 

-r - 1 ^ 0 . Cf 'Tr -4i,4z(HP<.) 

Woc Cpy , where 

^Ft is found from the graphical data of the combustion products 
of Hydrogen and Oxygen, as a function of MR and T. 


T 
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11. Size heat exchanger between Accxmulator and APU gas generator. 

is determined in calculation 8. 
is taken from tables forTp^ and R. H 
is taken from tables for‘TA/i and 
(Max heat exchange occurs whentJpjj^is maximum, for given 
values of Tp ^ and T^h )• 

— bC ph^ ( l-^Pn ~ Ham^ 

" CfeZCn.-To) 

is found from H -0 Combustion Prods . table 

for — ^ and MR 

is determined in calculation (lO) 

■■7~o input 


12. Size 0 Heat Exchanger between 02 Accumulator and APU gas generator: 


'g.lOc — (i'tpt, "" 


i^'oo 
Hpo 
H Ao 

Te^ 

To 


is determined in calculation (8) 
is taken from tables forTp^ and Pc-o 
is taken from tables for Tao and Pc o 

— (Hp. - ^Ao') 

(Te.’ - u) 

is found from H^-O^ Combustion Prods. 

Table for » -*■ T~p 

Z 

is determined in calculation (lO) 
is input 


13 . Size Heat Exchanger between H^ Tank and H^ Accmulator: 

is determined in calculation (8) 

is found from tabulated thermo properties of 

H^, corresponding to'T^^__^ and pen 
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is found from the tabulated values of 
vs. density, as a function of 
and of percent usable withdrawn • 
from the tank to that point in the 
mission. 

Note that percent usable withdrawn 


is found from thermo tables for P 


- 


■4-H 

and 

_ PH^ ( Ha h ~ 


fn 


:) 


Cpe^ Td^ 

are found as in calc, (ll) 


lU. Size Og Heat Exchanger between 0^ Tank and 0^ Accumulator: 

bOoox, is determined in calculation (8) 

H— is found from tabulated thermo properties 
of O^, corresponding to lTo.i_and ?co 
Tto is found from the tabulated values of 
vs. ©2 density, as a function of 
percent usable 0^ withdrawn to that 
point in the mission, and as a function 
of > ^+c> 9 9 and ^co. 

2-j-o is found from thermo tables for P^o and 

<^Pe^ CTe<: -T o) 


/•> 'T1 . Tn are found as in calc. (l2) 
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Size Hx Tank Heat Exchanger: 

is taken from the graphical data of 
vs. Density for Supercritical Storage, as 
applicable for time period -0\, as a function nf 
■’ percent usable .^2. with- 

drawn . 

V ■ 

t 

is determined in calculation (8) 

\ / AV >/ ) H , (“•'“0 

(t ) 

1 1 D 

Cp , Tp , & Tp are found as in calculation (ll) 

E . i 
1 



Size ©2^ Tank Heat Exchanger: 


taken from the graphical data of 
(A'Va J)vs . Density for ©7^ Supercritical Storage, 
as applicable for time period -01, as a 
function of P^;(; , P^^, percent 

usable C>^ withSrawn. 


= &L h 


■'Ox. 


CO 


D • is determined in calculation (8) 
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LC^ 


\ CfE - ’^D ) 

, i 


Cp , Tg , & are found as in calculation (l2). 
i ^ 

17. Check adequacy of exhaust products for conditioning: 

Find ^ (Ug + 00 + + I/O + ^ ) and compare 

A . B . D E 

1 1 1 , i i i 

' # 

with the value of UJp for each interval (i) in the mission. 


If the ^ ( 

f^-A X. i 

" F 


^ for all points in the duty cycle, proceed 


to operation 17B. If ^ ^ for any point in the duty 

X = /l i 

cycle, then the use of a supplementary gas generator and a supplemen- 
tary heat exchanger (added to the Supercritical System schematic) must 
be brought into play at that point. This reduces the value of 

B , 

and increases the value of^/Sri , 14J ^ and , since an additional 

^e. ®E. ^F. 

11 1 

quantity of H2 and Oz must be conditioned for use in the supplementary 
gas generator. 


* 0 

I7A. For the case where ^ L-O'-n • 


^G. 


H. 


lc 


'■'G 


0 . 


flow increment to the supplementary gas generator. 
Oz flow increment to the supplementary gas generator. 




Af 


U.J 


B. . 
\ 


unchanged . 
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oQ. 


\ 


oO 


unchanged . 




new value of exh gas to HX(b) 


C 




D. 


E. 




new value of exh gas to HX(e) 




new value of exh gas to HX(c) 






new value of exh gas to HX (f) 




V 


iO 


i/O 

D, 


to 

■’D. 




D. 

1. 


iaJ ~-ciJ 

D, 


D “ 

_ c F. 

W. y-. 


c 


■ 

D. 


■.L 


unchanged by addition of suppl. GG (cal. from #?A) 




A. 

1 




V 




D. 


E. • 

A. 


calc.- from #12. 


calc . from #13 . 


n 


tODo, 


E. 




D 


0 . 

1 
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'D 


c . 

1 


UJ 

'D 




D, 


UJ, 


H. 

1 


G 


H. 


^D, 


H. 


^ UJ 
-D. 


A. 




^0.' 

JU 




1 


«> 


oo 










Of 


- H - ^ + i ) - f E + F^) (1+ V . 


H. 


>L^ 


Since = «^ ME^ , 

^o..r ^H. ' ^ 

6f-> _ 6^’ _ t<.' _ ^<.> H 

. D. = D„ i 

^ ^ ^X- ^D, 


d 


H. 

1 


('H “tI “ 

-\\*\j{x*^ .; 

fj f 


/C * 


and the only unknowns areC<J and 


A-(. 


IX 


Now, the reduction in enthalpy change in heat exchanger (b) is equal to the 
enthalpy change in the supplementary gas generator. 


/-^Hb' = Cp 

A> 


B. 


= E. ^ (E+MR^) 

1 1 i 


Also , 


B. 


'X 


(T - t; ') 

G 


{i^ - (T - T. ) = LU (l+MR ) Cp (T - T ) 

\ V ^E_. ^i t> ^ - C 


'E. 1 

1 
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4*^ Cp (T -T )-d*/ Cp (T -T:)=t^ (i + m)Cp (t, 

, 7-^1 

% . \ (%i - (l+MBo) % - T’o) 


H. ‘G 

1 


■'o’ 


B, 


^■p (t - t ) 

E. ^ E 
1 i 


Let Kg (T^ _Tj^) 

1 i 


^ ' % ‘■'g ■ ■'d* 




ky 


3 . " " 8 , 


'L 


K, 


Combining equations, 


% - \(uME,){iL) = \- 






K. 

AJ- O _ 

Ci(/ r/TD 

G. 






W' 


/ 


_ ft, .ft,) (i.-JL 


G 


E. 

1 


«t) 


0 . 


Kg - (l + '^O 

Let K.= V - < -V 


\['X~/ 

\ • 




.1 6 . 1 1 




D. 


% 


E. MR 
1 G 


^PL ^G 
1 




H. 


GiP 


0.. 




0 . 
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Let K. 


10 


“6 “i 

C. +. E. + F 

1 1 i 


11 


D, 


D. 


Let K = (- 


E. 

1 G 




F. MR^ 
1 G 




D, 


H. 




0 . 




ad 


K_ 


"H. ^^^8^ ' “ "lO ■ S ^ 


G„ (Kj (-^) = K 


% 


K 




H, (Kg) (-^ ) - H, (K,J=K_-K 


i ' 11' 10 9 




H. 


Lo - *^9 


■'8 - \l 




H. 

1 




- K, ^ 
9 10 


^7 

,Li - Is ^T—'i 

“^A -% - 

i i i 


OUlL 


C. - 


“i>E -“^F 

■i i 




Li - '^8 ( ^ ) 


IW?, 




D. - 

1 



G. 


X = A 


(“b. ) 


H. 


Li - ■'8 ( -i6- ’ 


( 2 .) Step 2 ; 

As solved for 


w?. W-: 


H. “ H 


G,, ^G„ = 


0 . 

1 


^G ^H. 




G 


0 . 


. M(?. *^G 

‘G H. 


C-95 


) 


and 

5 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


17 B. 


17 C 


17 D. 


17 E. 


Solve for corrected values of heat exchanger exhause requirements: 


tp \JP \5fP 

If step I7A is omitted, and 


B. 






B. 

1 




Ul . Ul / ^8 ■ ^7 N 
Dg minus ^ ^ ) 

i i 6 






K. 

1 D„ 


If step I7A is omitted, 




i 1 

c 


F. 


%. = < 




0, 




0 _L 

^(Pc. ' 


^ ) 


OJ 


H4, 


If step 17A was performed, recheck for adequacy of APU exhaust when 
supplementary gas generator is used: 

o /' M \ til 

Check for ^1 X \ for all points in the duty cycle, 

X-/\ V ^c / 


If not, check for errors in steps I7A and 17B, If 

X = A 

4 

5 go to step 17D. 


Lp 

1 

c 


Total Ez flow to accixmulator: 


^T, 


Ui 


Ui 




jj - step 17A was omitted, Gj^ 

i i i ■”i 

c c 


= 0 


Total O2. flow to accumulator: 

If/ * 

= Bq + G ; If step 17A was omitted, ^ = 0 


0 . 0. ■ '^0. 
Ill 


C-96 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


17F. Correction to calculation of heat exchanger between tank and 

= Q ) 


accumulator: (ignore if = ih 

^0. 

"c 


Bi B. E. 1 

c 

txJ 

Dg defined in operation I7B 
i 

c 


17c. Correction to calculation of Oz heat exchanger between tank and 

= 0) 


accumulator: (ignore if Sit?, 

G 


A. 


tiC 


0 . 


1 1 


4^ 


Q defined in operation 17E. 


h 


I7H. Correction to calculation of H2 tank heat exchanger: 


AW 






c. defined in (17B) . 


171. Correction to calculation of Oz tank heat exchanger: 


P' 


c 

C 


F. 

1 




defined in (17B) 
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Use of Heat Exchanger subroutine; 

For the six heat exchangers which are investigated in the following 
six operations, the heat exchanger subroutine is used. Inputs and 
outputs for the subroutine follow: 

(a) Inputs: 


Type of fluid, 0^ or 

= rate of fl'^w of c^ld fluid, Ibs/sec. 

T . = cold fluid inlet temp, °R. 

c in ’ 

T , cold fluid outlet temp, °R. 
c out - ’ 


Pc^^ = cold fluid inlet press, psia. 

PCout = cold fluid outlet press., psia, (optional, see Note) 

^ = hot fluid rate of flow, Ibs/sec. (See Note) 

Th. = hot fluid inlet temp., °R. 
in ’ 


Th 


= hot fluid outlet temp., °R. 


Ph^^ = hot fluid inlet press., psia. 

Phout = fluid outlet press., psia, (Optional, See Note). 

OF = hot fluid gas generator O/F ratio, lbs Oz (See Note) 

lbs Hz 

Note: (l) If Wh is given but OF is not, the sub-routine will 

calculate OF, and vice-versa. 

(2) For each heat exchanger, Pc cannot be less than 0.8 

Pc. , and Ph , cannot be less tBan 0.6 Ph. , to avoid 
in out in’ 

choking effects. If AP = P.„ - is not specified for the 

cold fluid or the hog fluid, the subroutine will use and 
output a value of A P which results in a minimum size heat 
exchanger . 
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(b) Output: 


The subroutine will generate the following output: 
“(ot = weight of the heat exchanger, lbs 
^ = volume of the heat exchanger , in ^ 

= hot fluid pressure drop, psi 

fluid outlet pressure, psia 
PCtot - cold fluid pressure drop, psi 
Pc^ = cold fluid outlet pressure, psia 


19. 


Weight and Characteristics of Heat Exchanger HX^: 


Find ^^xAjAPH andAPc for (3 H^) max with input of H Fluid, 

# 

m ti) T P 

Dh-’ Aj^’ GG, .0166 T^, P^, MR, andAP of 
the cold and hot fluids if desired. 


P^g = input, assumed value of APU turbine exhaust pre- 
ssure at heat exchanger inlet. 

A P = input, allowable A P of the cold fluid and/or the 
hot fluid, if it is desired to specify this value. 

20 . Weight and characteristics of Heat Exchanger HX^: 

r 

Find AP^ and Pc for (^ip^)max, with input of 0 ^ Fluid, 

.0166 ’ ”^A ’ "^P ’ ’ ^re ) MR, andAP of the cold 

o . o f ^ 

1 

and hot fluids if desired. 


21 . Weight and characteristics of Heat Exchanger 

Find Wjixg^APh andAPc for )max or (fj^Ucc )max, as appli- 
cable, with input of Ez Fluid, .OI66 W„ 5 j ^ , Pc„ 

J-TT Ajj n J 


H- H. 

A 1 
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MR, and AP of the cold and hot fluids if desired, 
i 

22. Weight and characteristics of Heat Exchanger HX^,: 

Find and A Pc for max or )max, as appli- 

cable, with input of 0 Fluid, .Ol 66 . 5 T . , T , Pco, 

-l-G, J-Oy A 

*T^ ’,”Tp, i^p , MR, andAP of the cold ari^hot riuids°if desired. 


23 Weight and characteristics of Heat Exchanger HX^: 


Find Wh'Xcj andAPh andAPc for )max, with input of H^ 

Fluid, .0166 ^ 

^ i 

andAP of the cold and hot fluids if desired • 


AOi 

AW 


60 X 




Cp.. (To-ioo--rO 


Ail 

AW obtained from tables of 'vs stored 

density and tank pressure as a function of 
percent consrunable propellant consumed. 


is obtained from operation I 8 D 

■^H. 

1 


Cp ^ ’ ^f ^ 

' H H 


TD-100 = assumed outlet temp of cold fluid, R. 


24. Weight and characteristics of Heat Exchanger HX^: 

« 

Find j Ai4i and APc for )max, with input of 0 Fluid, 

HXy a 
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Cp^:^ (Td Tvo) 


25.. Weight and characteristics of Supplemental Heat Exchanger, if 
required, HX : 


Find j ^Ph and A Pc for )max, with input of Fluid, 
s 

.0166 , Tg , , Pg , Tjj, P^, MRg, andAP of the cold 

H. m. H H 

1 1 


and hot fluids if desired, 

^ . ' 

Cpg = f(T6 , MR , from tables 


max 


■ed. ^ ^ 

) Cp^ (Ts ' ' t> ) 


Tg = input 


T = T 
SIW^ Ai^ 









25A. Calc, weight of Propellant tank heater circulating compressor: 


This calculation is based upon the following assemputions: 
Compressor assembly weighs 2 Ibs/HP 
Compressor efficiency is Gcffo 
Tank nearly empty of usable propellant 
Compressor, pressure rise =AP COMPR 

Cold fluid outlet temp from tank heat exchanger is 
100*^R less than hot fluid outlet temp 
Max APU flow requirement 
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\A/ 


COMPR 


UJ 

CR 


AP 


= .01455 


(? 


CR 


o 


where 


AQ 


(40--^) 


.J 


f.^\ 

aw/ 


cp^ (Td-|00-T+^ 

is obtained from tables of 





vs 


stored density and tank pressure as a function 
of percent consumable propellant consumed. 


is obtained from operation I7R and 18E 
i 

Cp^ = f Pf) 

A ^COMPR “ or the value of HX AP^ obtained from 

the heat exchanger subroutine for the tank 
heat exchanger. It may be desirable to set 
A PcoivcpR quite low to minimize Wj^qmpr’ 
compressor power, and accept the resultant 
heat exchanger weight. 


= f (Tf. Pf) 


Calculate Weight of storage tank: 

^Th “ ™\4.3S- p„p J (p-iu. 

is found from calculation (8) 


where 


H 


Wv is found from the Heat Leak/Vent program for 
the total mission duration (see Calc. 35) 


v 4 ,,= 

A,- 1 
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Pp is found from calculation (9) 


is found as the lesser value of the programmed 

I P 

curves of — for steel and alumimun, respect- 

f-tiA 

ively, corresponding to Tp . 

f 


27. 


Calculate Weight of 0^ storage tank: 


w = 7000 

H 


IQ ~ ^ j 


is found from calculation (8) 
o 

is found from Heat Leak/Vent program for 


the total mission duration 
n= I 


X- — ) 

is found from calculation (lO) 

is found as the lesser values of the pro- 

h'io' / _ / ^ 


grammed curves of 


ft 


iA. 


for steel and 


aluminum, respectively, corresponding to 
T 


28. 


Calculate weight of tank Residual Propellant: 


W. 


R. 


H 


I 4.35- - R 


\J\-t 




29. Calculate weight of 0^ tank Residual Propellant: 


% 


R 


= Po, 


~7 0- Po 
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30 . 




Reference propellant flow rate from Table 1, 
corresponding to 100^ power, MR = 1.0, = l4.7, 

and the value of selected in calculation step (4) 


is found as the lesser value of the programmed 


curves of/ 


for steel and aluminum. 


respectively, corresponding to T 


A. 


H 



is found from the programmed thermo-dynamic 
properties of Hydrogen, for P-, and T 


31. 


Calculate weight of 0^ Accumulator: 


W„ 


= .0652 



1, ,,ere 


Rj^ = Reference propellant flow rate from Table 1, 
corresponding to lOCffo power, MR = 1.0, = 


f-to 


i 4.7, and the value of Pj^j^ selected in 
calculation step (4) 

is found as the lesser value of the prog- 
/^o rammed curves of for steel and 

aliiminum respectively, corresponding to T 


A 


is found from the programmed thermo-dynamic 
properties of Oxygen, for P^ and T^ 
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is found from the programmed thermo-dynamic 
properties of Oxygen, for P and T 

I O 


32. Calculate weight of H acciimlator residual Propellant:. 


W, 


_ PfH 


-fhL 


= 


(hp^Vr, 


-FP 


AH 


•z 


? 6^ o c o 




33. 


34. 


Calculate weight of 0^ accumulator residual propellant: 


Wr. = 


'^0 






RfP 


5^jCoo 


Calculate weight of H vented during mission: 


(a) Weight of Vent required to absorb Tank leak: 


<\ 

W/„ 


There is no interest in heat leak below the temperature 

T since that is the temperature being sought in the 
H 

tanks. Also, there is no interest in heat leak while 
the APU's are in operation, since heat is input into the 
tanks during these periods intentionally. 

5-.4 A|i 


6- 1 


K 


'X 


Pcu Vi 


vrri 




where 


A Hx "" 

'T3 




= a time increment between AKJ burns , during 
which the H tank temperature is T , hrs 
(obtained from duty cycle and tables of 

T„ vs stored density) 

H. 

1 
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= tank area, ft (obtained from approximate value 
of for spherical tank) 


V, 


Th 




H 

Wi,„ + 


4-3s--Ph.^ 


(see operation 26 ) 




is obtained from vent subroutine as a function 


of T , ambient temperature, and type and thick- 

btu 


ness of insulation, — r — 

’ hr- ft 


O 

= approximate volume of H tank, ft'^ (obtained above) 


Pp = input tank pressure, psia 


= weight of in tank at start of time period'Tj) , lbs 


(B) Weight of vent required to absorb 0^ Tank leak: 


The same rationale applies as for the H tank vent case. 





^ f ^ To < <- 

tr; -Tw) 


, where 


C_ = specific heat of H at T and Pp 
1 1 


'TT' = a time increment between APU burns during 

which the 0^ tank temperature is T^ , hrs 

o 


(c) Resultant total weight of vented 
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If ^ = w, 


V V 

• TT * T 




If W, 


r /■ W ¥ = W 

V <L V ’ V V 
^ H 


35. Weight of Supplemental Gas Generator: 


Call subroutine GASGEN with (w^ + w_ )max, , and T , 


H. o. 

1C 1C 


H 


and obtain gas generator weight, W^ 


36 . Total weight of System: 


Ifs \ \ 


+ W ”4* W W ’4" W _ 4" W W 4“ W 

”r. '^liwes, ’^14 '^G G„ 

“ “ TTTGS„ ^S ^ 

n 


37 . Total weight of 0^ System: 


W — W 4” W — W 4" W 4" W 4” W 4* W 
0 D C HX^ H)L '^HX^ *^T R 

sys o o T E 1 > o o 


4"W 4"W 4"W 

A R LIKES, G 

° o FTTGS ° 

o 


38 . Total weight of supercritical AHJ Propellant System: 


P sys Og 

sys 

sys 
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Math Model Configuration 


The configuration concept employed in the modeling 
critical ARJ calculations is illustrated in Figure 


C-108 
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MATH MODEL FOR SUBROUTINE CMPCAL 
PURPOSE OF SUBROUTINE 

The subroutine provides in one package the necessary equations, 
evidence, constants and procedural techniques for the computation of 
the flow rate, flow conditions, component sizing and component item 
weight required for a configuration analysis. The subroutine makes 
use of a number of subprograms which supply specific or specialized 
computations for the larger component assemblies such as pumps heat 
exchangers, etc. Significant variables employed in the subroutine are 
defined and described in the subroutine description (Sec. 1.9)» 

The manner in which CMPCAL is programmed to carry through its cal- 
culation is illustrated in the following sketch and explanation: 



PATH "B" 


--1' I /L 


,> I _ PROOWM PATH »A» 


Subroutine CMPCAL starts with the cryogen consummer, in this case 
an engine, and takes each component in turn as it goes along Path "A" 
toward the fluid supply tank. When the subroutine encounters a pump, 
it searches ahead until it finds a tank, it then obtains the tank 
temperature, pressure, flow-rate and resets the value of ISIGN to (-l) 
and returns via PATH "B" to the pump. The calculations then proceed 
for each component up to and including the tank and pressurization 
subsystem if one is in use. CMPCAL performs the computations for 
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each fluid subsystem leg separately taking into account all gas 
generator requirements in both fluid legs of the total system. 

SUBPROGRAMS AND SYMBOLS REFERENCED IN THE MATH MODEL 


Subroutines, functions and data lock-up table numbers are referenced 
with the using equations and procedures contained in this model. The 
asterisk (*) implies quantity multiplication, the slash (/) denotes 
division of quantities and the paranthesis ( ) serve to group a set 
of terms. 


Data transfer to and from subroutine CMPCAL is effect through the use 
of INCLUDE statements which bring in the appropriate PDF element de- 
fining the required labeled COMMON storage areas. 


1. INPUT REQUIREMENTS AND VARIABLES NAMES 
1.1 INPUT REQUIRED FROM DUTY CYCLES: 


NAME 

DCYCLE (l) = e(x) 
DCYCLE (l+l) =T(l) 
NEOP (l) 


DESCRIPTION 

Time duration for operating 
interval (sec) 

Time duration for non-operating 
interval (sec) 

Number of units operating in 
interval 


1.2 INPUT REQUIRED FROM CONFIGURATION DATA: 


NAME DESCRIPTION 

ICNF Number of configuration data cards input 

IDX Configuration item index 

ISIGN Analysis directional index 
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NAME 

CFUNCT 

crrypE 

CMEYFE 

CITYPE 

CWOPER 

CWSTBY 

FRCOEF 

Lj^D 

DIAM 

ITHIK 

REAR 

Cj^DE 


DESCRIPIION 

Integer Corresponding to Configuration Item 
Function 

Integer Corresponding to Function Type 
Integer Corresponding to Material Type 
Integer Corresponding to Insulation Type 
Number of units operating 
Number of units on standby 

Characteristic Friction Factor for Flow Region 

Length over Diameter, or, Length 

Diameter 

Insulation Thickness 

Number of Layers of insulation per inch 
Identification Code for Config, Unit 


1.3 VARIABLES EMPLOYED IN MODEL EQUATIONS: 


NAME 

IGAS 

GST ATE 

PRES 

TEMP 

WD)Z5TN 

WDjZSri 

PLSN0M 

TLSNj^M 

FLD 

IDV 

LDV 

RHjZ5 

DEEP 

A 


DESCRIPTION 

Integer Corresponding to Fluid Kind 

Integer Corresponding to Fluid State 

Fluid Peessue at Each Point in System 

Fluid Temp at each point in System 

Fluid Flowrate at each print in system 

Input Fluid Max. Flow Rate at Consumer 

Input Fluid Pressure at Consumer 

Input Fluid Temperature at Consumer 
fL 

for Configuration Unit Considered 

Integer Pointer for Control Mass Characteristic 

Integer Pointer for Fitting and Tap Con- 
figuration 

Fluid Density when a gas 

Fluid Pressure Drop across Component 

Cross Sectional Area of Flow Region 
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NAME 

WEIGHT 

APRES 

INDXAC 

INDXTK 

SIFRES 

SITEMP 

WTTOT 

WDOTCF 

UCj^DE 

HEXCIT 

HXGDLP 

WHXT^ 

MACH 

MFLG 

Jj25FTW 

PTEMP 

PPRES 

PPDCH 

PPDEL 

PPWDT 

PPRH)6 . 

PWPSH 

PMPEFF 

mPVpL 

PMPjSW 

PSPD 

PSTAGE 

PNPSPR 

PWEGHE 

TWEGHE 


DESCRIPTION 

Weight of Configuration Component Considered 
Accumulator Pressure (if used) 

Accumulator Index (if used) 

Fluid Tank Index- Set to IDX 

Fluid Tank Initial Pressure 

Fluid Tank Initial Temperature 

Fluid Tank Weight 

Fluid Heat Exchanger Flow Rate 

Fluid Heat Exchanger I.D. Code 

Fluid Heat Exchanger Cold Inlet Temp 

Fluid Heat Exchanger Delta-P 

Fluid Heat Exchanger Weight 

Fluid Mach No. 

Fluid Mach No. Flag 

Option for Minimum Wgt or Minimum Power Itimp 

Pump Fluid Inlet Temperature 

Pump Fluid Inlet Pressure 

Pump Fluid Outlet Pressure 

IHimp DELTA-P (each fluid) 

Piunp Flow Rate (each fluid) 

Pump Inlet Fluid Density 
Itimp NPSH for Each Fluid 
Calculated Pump Efficiency (each fluid) 
Calculated Pump Volume (each fluid) 
Calculated Pump Power (each fluid) 

Calculated Pump Speed (each fluid) 

Calc. Number Pump Stages (each fluid) 

Calc. NPSP Required (each fluid) 

Calculated Pump Weight (each fluid) 
Calculated Turbine Weight (each fluid) 
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NAME 

TITEMP 

T)Z5TEMP 

TMRATji 

GWEGHT 

WGTGGA 

TPDELP 

TPEFF 

TPNPSH 

TPWD^ 

TPWGHT 

HP 

MSS 

MTYPE 

PDNSTY 

EMWGT 

BWEGHT 

WCIRCP 

WIT/fl 

WDjiTCF 

UCjiDE 

HXCjiDE 

Hxcn 

HXCDLP 

WHXT)2!fr 

MACH 

MFLG 


DESCRIPTION 

Turbine Inlet Temperature (each fluid) 
Turbine Outlet Temperature (each fluid) 
Turbine Gas. Gen. Mixture Ratio (each fluid) 
Fluids Required to Run Turbine Gas Generator 
Weight of Gas Generator Assy (each fluid) 
Transfer Pump Delta-P (each fluid) 

Transfer Pump Efficiency (each fluid) 
Transfer Pump NPSH (each fluid) 

Transfer Pump Flow Rate (each fluid) 

Transfer Pump Weight (each fluid) 

Calc Horse Power for Electric Motor 

Input Motor Speed 

Input Motor Type 

Battery Power Density 

Electric Motor Weight 

Battery Weight 

Weight Fluid. Circulating Pumps 
Fluid Tank Weights (from Tank, etc) 

Cold Fluid Flowrate - Heat Exchangers 
Heat Exchanger I.D. Code 
Input Heat Exchanger I.D. Code 
Fluid Heat Exchanger Cold Inlet Temp 
Fluid Heat Exchanger - Delta P 
Fluid Heat Exchanger Weight 
Fluid Mach Niimber 
Fluid Mach Number Flat 


1.4 Constants Required: 

PI = = 3.14159265 

Gravity= G = 32.172 

Cl = 1152.0/(GRAVITY*PI*PI) 
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2. MAJOR MATH MODEL EQUATIONS 

Much of the coding in subroutine CMPCAL is required for setting-up 
component sequencing indices, temperatures, pressures, component 
identity and dimensions, as well as fluid identity and state. Most 
of this coding is obvious as to its meaning by simple inspection and 
tracking at the branching variable, therefore, only the more signifi- 
cant equations will be treated. 

2.1 PRESSURE DROP AND WEIGHT CALCULATIONS: 


Pressure drop calculations are performed by CMPCAL for all lines, 
fittings, taps and controls such as valves and check- valves . The line 
pressure drop calculation will serve to illustrate the computation 
procedure, taking the first line encountered after the cryogen- common, 
which will be assumed to be an engine. 


2.1.1 PROCESS A LINE: 

ELD = FRC0EF(IDX)*L0D(IDX)/DIAM(IDX) 

LDV = CFCYPE/lO , 

CPTYPE = CFTYPE - LDV * 10 
WDOTN(IDX) = WDOTN(IDX-ISIGN) 

TEMP(IDX) = TEMP(IDX-ISIGN) 

PRES(IDX) = PRESS (IDX-ISIGN) 

IX = IDX - ISIGN 

GO TO (520,550), GSTATE 

***** delta pressure when GASEOUS 
CALC. RHO OF GAS 

520 CALL GSDNST (IGAS,TEMP(IX) ,PRES(lX) ,RH0) 

DELP = CI*FLD*(WDOTN(IX)/CNOFER)**2/(RHO*DIAM(IDX)**4) 

***** IF PCT. OF PRESSURE CHANGE EXCEEDS ONE PCT . - RECOMPUTE 
***** DELTA-P, IF WOT, COMPUTE THE NEW PRESSURE 

IF(DELP/(PRES(IX) * DELP) - 0.0l)560, 56 O, 530 
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CALC. RHO OF GAS 

530 CALL GSDNST (lGAS,TEMP(lX),PRES(lX)+DELP/2.0,RH0) 

DEEP = CI*FLD*(WD0TR(IX)/CN0PER)**2/(RH0*DIAM(IDX)**4) 

***** AGAIN CHECK PCT . OF PRESSURE CHANGE. IF PCT . EXCEEDS 
* 2.8 PCT. COMPUTE THE DELTA-P BY USE OF THE COMPRESSIBLE 
***** FLOW EQUATIONS. (REF.-RPL-TDR-64-25.V0L.L,REV.D) 

IF (DELP/PRES(IX) + DELP) - 0.028)560,560,540 

540 A = PI*DIAM(IDX)**2/576.0 

CALL COMFLO( IDX , PRES ( IX ) , TEMP( IX ) , FED , A ,WDOTN ( IX ) /CNOPER , IGAS . 

1 deep) 

PRES(IDX) = PRES(IX) + ISIGN * DELP 
GO TO 561 

***** delta pressure when liquid 

550 CALL RHOLIQC TEMP (IX), IGAS, RHO) 

DELP = CI*FLD*(WD0TN(IX)/CN0PER)**2/(RH0*DIAM(IDX)**4) 

***** COMPUTE NEW PRESSURE 

560 PRES (IDX) = PRES (IX) + ISIGN*DELP 

***** COMPUTE THE GAS MACH NUMBER 
IF (GSTATE.EQ.2) GO TO 56 I 

CALC . RHO OF 'GAS 

CALL GSDNST (lGAS,TEMP(lX) ,PRES(lDX) ,RHO) 

IF (GSTATE.EQ.l) CALL VGVS( IDX , RHO, IGAS ) 

561 CONTINUE 


COMPUTE LINE WEIGHT 


CALL LWEGHT(IDX,LDV) 


The line weight is automatically stored in the correct component weight 
array position designated by the component index IDX. If, instead of 
a line, a control fitting or tap were being processed then the component 
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weight would be computed by Function CFTW as follows: 

570 WEIGHT(IDX) = CFTW(DIAM(IDX) ,PRES(lDX,I0V) 


2.1.2 PROCESS AN ACCUMULATOR: 

600 PRES(IDX) = APRES(IGAS) 

TEMP(IDX) = TEMP(IDX - ISIGN) 

WDOTN(IDX) = WD0TN(IDX - ISIGN) 

INDXAC(IGAS) = IDX 

The index INDXRAC ( IGAS ) is used to retrieve the accumulator weight from 
the ouput array of subroutine WTACC. 


2.1.3 PROCESS A HEAT EXCHANGER UNIT: 


Since heat exchanger and heat exchanger heat source data are stored in 

doubly subscripted arrays the index JX is used to keep track of which 

unit is being considered, IGAS specifies the fluid and IDX is the 

exchanger position index in the configuration array. The temperature, 

pressure and flow rate are picked up at the heat exchanger outlet point 

and the calculations proceed as follows: 

900 IF(ISIGN.GT.O) GO TO 9IO 

WRITE (I0T,6005) ISIGN 

910 CONTINUE 
JX = JX + 1 
JHX = JX 

wdotn(idx) = wdotn(idx-isign) 

WD0TCF(JX,IGAS) = WDOTN(IDX) 

UC0DE(JX,IGAS) = CODE(IDX) 

HXDLP = HEXCIP(JX,IGAS) - HEXCOP(JX,IGAS) 

if(hxdlp,gt,o.o) to to 911 

UCODE(JX,IGAS) = 6HN0NE 
PRES(IDX) = PRES(lDX-l) 

TEMP (IDX) = TEMP (IDX- I) 

GO TO 1000 


■911 CONTINUE 

HEXC0P(JX,IGAS) = PRES(IDX - l) 

HEXCIP(JX,IGAS) = HEXCOP(JX,IGAS) + HXDLP 
IF (SCRIT .EQ,. 1) TO TO 913 

IF (SYSNUM .EQ. @ .OR. SYSNUM .EQ. 4) GO TO 912 
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913 CONTINUE 


COMPUTE HEATEX PARAMETERS 

C ALT, HEATEX ( IGAS , JHX , WDCTN( IDX ) . HEXHIT ( JF , IGAS ) HEXCIT ( JX , IGAS ) , 

1 HEXH0T(JX, IGAS), HEXCOT(JX, IGAS), HEXHIP(JX, IGAS), HEXCIP(JX, IGAS), 

2 HEXH0P(JX, IGAS). HEXCOP(JX, IGAS), HXMRAT(JX, IGAS), WDOTH (JX,IGAS), 

3 whxtot(jx,igas)) 


*•)««<■* COMPUTE THE GAS GENERATOR ASSEMBLY WEIGHT ***** 
CALL GASGEN(JX,IGAS) 

912 CONTINUE 

TEMP(IDX) = HEXCIT (jX, IGAS) 

DLPRES = HEXCIP(JX,IGAS) - HEXC0P(JX,IGAS) 

PRES(IDX)= PRES(IDX-ISIGN) + DLPRES*ISIGN 
WEIGHT (IDX) = WHXTOr(JX,IGAS) 


2,1.4 PROCESS A PUMP OR TANK PUMP UNIT: 


When a pump is encountered, CMPCAL will always check to see if there is 
a tank down stream. If no tank is found the program will execute an 
automatic termination. If a tank exists, the temperature, pressure and 
tank flow rates are retrieved for use. This segment of CMPCAL processes 
high pressure pumps, turbo pumps and transfer pumps with electric motor 
drives. The coded equations are as follows; 

***** CHECK ISIGN TO SEE IF THE CONDITIONS ON BOTH SIDES OF 

***** the pump have been calculated. 

800 IF(ISIGN,LT,0) GO TO 825 
ISIGN = -1 

***** SEARCH FORWARD IN LINE FOR A SOURCE TANK 

DO 8l0 12=IDX,ICNF 
CALL GETC0N(12) 

IF(CFUNCT.EQ,.12) go to 820 
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8lO COlWINUE 

WRITE (6, 6010) IDX 
CALL EXIT 


Termination if no tank can 
be found. 


***** WHEN A SOURCE TANK IS FOUND, SETUP PRESSURE, TEMPERATURE, 
***** FLOW RATE AND FLAG TO CONTINUE THE CALCULATIONS. 

820 WDCTN(12) = WDarN(lDX-l) 

IDT = 12 - 1 
IDX = 12 

PRES(IDX) = SIPRES(lGAS,l) 

TEMP(IDX) = SITEMP(lGAS,l) 

GO TO 1000 

***** COMPUTE THE WEIGHT OF THE PUMP, TURBINE, PROPELLANT AND 
***** motor depending on THE TYPE OF PUMP. 


**** * CHECK CFTYPE FOR HIGH OR LOW PRESSURE PUMP 


825 ISIGN = 1 

PRES(IDX) = PRES(lDX+l) 

TEMP ( IDX) = TEMP(lDX+l) 
WDOTN(IDX) = WDOTN(lDX+l) 

JOPTIN = CFTYPE/lO 

CFTYPE = CFTYPE - JOPTN * 10 


IF (CFTYPE .EQ. 2) GO TO 840 

***** process the HIGH PRESSURE PUMP 
***** COMPUTE THE PUMP OR TURBOPUMP WEIGHT 


JJOPT(IGAS) =JOPTN 
PTEMP(IGAS) =TEMP(IDX 
PPRES(IGAS) =PRES(IDX) 

PPDCH(IGAS) = PRES(lDX-l) 

PDELP = ABS(PRES(rDX-l) - PRES(lDX)) 

PPDEL(IGAS) =PDELP 

PWDCT = WD 0 TN(IDX)/CN 0 PER 

ppwdt(igas) =pwdot 

CALL RHOLIQ(TEMP(lDX),IGAS,RHO) 
PPRHO(IGAS) =RHO 

CALCULATE PUMP PARAMETERS 
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CALL PARPMP( IGAS , JOPTN, PDELP, PWDOT , PNPSH( IGAS ) , RHO, PMEF , V, 

1 E, WT, PNSG, NSTG, WPSPR) 

PMEEFT(IGAS) = PMEF 

PMPVOL(IGAS) = V 

PMPOW(IGAS) = E 

PSPD(IGAS) = PNSG 

PSTAGE(IGAS) = NSTG 

PNPSPR(IGAS) = NPSPR 

PWEGHT(IGAS) = WT * (CNOPER + CNSTBY) 

***** CHECK PTYPE FOR PUMP OR TURBOPUMP ***** 

IF(PTYPE.EQ.l) GO TO 83 O 

***** COMPUTE THE TURBINE WEIGHT 

CALL TURBN(IGAS,TRBWGT) 

TWEGHT(IGAS) = TRBWGT * ( CNOPER + CNSTBY) 

***** COMPUTE THE FLOWRATE OF THE GAS GENERATOR AND ITS WEIGHT 

TMEANl = (TITEMP(l) - TOTEMP(l) )/2.0 
TMEAN2 = (TITEMP(2) - TaTEMP( 2 ) )/2.0 
CALL CSUBPl (TMEANl ,TMRATO(l),CPEPl) 

CALL CSUBPi(TMEAN2,TMRAT0(2),CPEP2) 

DLHTPI = CPEPI * (TnEMP(l) - TOTEMP(l)) 

DLHTP2 = CPEP2 * (TITEMP(2) - TCTEMP(2)) 

CALL RHOLIQ( SITEMP ( 1 , 1 ) ,RHOLQl ) 

CALL RHOLIQ ( SITEMP ( 2 , 1 ) , 2 ,RH0LQ2 ) 

BRACI = ( 0.185 * PPDEL(i))/(RHOLQI * PMPEFF(i) * TEFF(i) * DLHTPl) 
Cl = TMRATO(l)/(l.O + TMRATO(l)) 

C2 = 1.0/(l.0 + TMRATO(l)) 

IF(PPDEL(2) .EQ.O.O) PPDEL(2) = EPDELP(2) 

IF(PMPEFF( 2 ) .EQ.O.O) PMPEFF(2) = PEFF(2) 

BRAC 2 = ( 0.185 * PPDEL( 2 ))/(RH 0 LQ 2 * PMPEFF( 2 ) * TEFF( 2 ) * DLHTP 2 ) 
C 3 = TMRATO( 2 )/(l.O + TMRAT0(2)) 

C4 = 1.0/(l.0 + TMRAT0(2)) 

C5 = BRACI * Cl 
C 6 = BRACI * C2 
C 7 = BRAC2 * C 3 
C 8 = BRAC2 * C4 

D 1 == (C 5 + C 8 + C 6 *C? - C 5 *C 8 - 1 . 0 ) 

WFLOl = (WDOTl(l) * (C5*C8-C5) + WD0Tl(2) * (-C 5 *C 7 ))/DI * CNOPER 

WFL02 = (WDOTl(l) * (-C 6 *C 7 ) + WD0Tl(2) * (C 5 *C 7 - C 7 ) )/Dl*CNOPER 

WFLO 3 = (WDOTl(l) * (C 6 *C 8 - C 6 ) + WD 0 TI( 2 ) * (-C 6 *C 7 ) )/DI*CN 0 PER 

WFL04 = (WDOTl(l) * (-C 6 *C 8 ) + WD0TI(2) * (C5*C8 - C 8 ) )/DI*CN0PER 

WDGGFR(l) = (WFLOl + WFLO 3 ) * CNOPER 
WDGGFR(2) = (WFL02 + WFL04) * CNOPER 
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KK = 0 

WDCTGl =0.0 
WD0TG2 = 0.0 

DO 835 12 = 1,NDCYCL,2 
KK = KK + 1 

WFL05 = (WDOTJ(KK,i) * (C 5 *C 8 -C 5 ) + WD 0 rj(KK, 2 ) * (-C 5 *C 7 ))/Dl 
WFL06 = (WDOTJ(KK,i) * (1-C6^7) + WD0TJ(KK,2) * (C5*C7 -C 7 ))/D 1 
WFL07 = (WD0TJ(KK,1) * (C 6 *C 8 - C 6 ) + WD0TJ(KK,2) * (- 06 * 07 ) )/Dl 
WFL08 = (WDOTJ(KK,i) * (-06*08) + WD0TJ(KK,2) * (05*08 -08))/DI 
WFL057 = (WFL05 + WFLO 7 VCNOPER 
WFLO 68 = (WFLO 6 + WFLO 8 VCNOPER 
WDOTGl = WDOTGl + WFLO 57 * D0Y0LE(12) 

WD0TG2 = WDOTG2 + WFLO 68 * D0Y0LE(l2) 

835 OORTIMJE 

GWEGHT(l) = WDOTGl * GNOPER 
GWEGHI(2) = WD0TG2 * OWOPER 
***** OOMRJTE SYSTEM WEIGHT 

ATERM = 13.824204 - (0.01117823^GOPO( IGAS ■ )) + (l .8632927E-5 * 

l(TGGPG( IGAS )**2)) - (l.l08423E-8 * (TGGPG( IGAS )**3)) 

BTERM = 7.9470262 - ( .035636198^GGPO( IGAS )) + (6.4684644E-5 * 
1(TGGPG(IGAS )**2)) - b.7946E-8 * (TGGPG( )**3)) 

WTGGA = ATERM + BTERM * WDGGFR(IGAS)/GW0PER 
WGTGGA(IGAS) = WTGGA * ( GNOPER +GNSTBY) 

WEIGHT (IDX) = PWEGHT(IGAS) + TWEGHT(IGAS) +WGTGGA(IGAS) 

GO TO 999 

830 GONTINUE 

WEIGHT (IDX) = PWEGHT(IGAS) 

GO TO 999 

*****PROCESS LOW PRESSURE SYSTEM 
*****FLUID TRANSFER PUMP 

.840 GONTINUE 

IF((SYSNUM.EQ.@. 0 R.SYSNUM.EQ.$) .and. (SGRIT.EQ. 2 )) GOTO 84l 
GALL FINTAB (NTBID(15)+IGAS) 

XTAB(l) = TPEFF( IGAS) *100.0 
XTAB(2) = TPNPSH(IGAS) 

IF (TPDELP ( IGAS ) ) 86 O , 85 O ,860 


} Table l4 for 02 
Table 15 for Hi 
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850 TPDELP(IGAS) = PRES(lDX) - PRES(lDX-l) 

860 IF(TPWDOT(IGAS)) 880 . 870.880 
870 TPWDOT(IGAS) = WDaTN(lDX)/CNOPER 
880 XTAB(3) = TEDELP(IGAS) 

XTAB(4) = TPWDC[C(IGAS) 

TPWGHT(IGAS) = MIPE(U,XTAB)*(CN0PER + CNSTBY) 

***** electric motor for transfer pump 

CALL FINTAB (m’BID(l 6 )) - Table No. 16 

CALL RH0LIQ(TEMP(IDX),IGAS,RH0) 

HP = i 44.0^0TN(IDX)*(PRES(IDX) - PRES(lDX-l))/(550.0*PEFF*RH0* 

1 meff) 

XTAB(i) = HP 
XTAB(2) = MSS 

EMWGT = MIPE(2,XTAB) * (CNOPER + CNSTBY) 

WEIGHT (IDX) = EMWGT + TPWGHT(IGAS) 


KK = 0 


BWEGHT(IGAS) = 0.0 
DO 890 12 = 1 ,NDCYCL ,2 
KK = KK + 1 

HP = i 44.0^0TJ(KK,IGAS)*(PRES(IDX) - PRES(IDX - l))/(550.0*EEFF* 
1 RH0*MEFF) 

PB = HP*746.0*DCYCLE(12)/3600.0 
BWEGHT(IGAS) = BWEGHT(IGAS) + PB/PDNSTY 


Qr\A n TTVTT nr 

\jy\j VWJ.NX xxNuxj 


GO TO 999 


84l CONTINUE 

WEIGHT(IDX) = WCIRCP(IGAS) 

GO TO 999 

At statement 84l, CMPCAL picks up the weight of a circulating pump 
calculated in another subroutine. (For super-critical systems only). 
Statement 999 in the WRITE statement which outputs the computed values. 
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MATH MODEL FOR SUBROUTINE C0MFL0 
PURPOSE OF SUBROUTINE 

To provide a subprogram which solves the compressible flow equations for the 
determination of pressure drops of gaseous fluids in long ducts. The equations 
employed are taken from References 1.9-15 and 1.9-16. 

THE BASIC MATH MODEL 

The analysis is reversed to the normal method of solution to the compressible flow 
problem as shown in the following sketch: 

Flow ' » 

M^ ) ) Mg, Pg. 

* ' ' Analysis 

fT 

Pg, Mg and are known, M^^ and P^^ are not known. 

From Shapiro, pp 167 (Ref 1.9-16), the length of duct L required for the flow to 
pass from a given initial MACH No. Mj^ to a final MACH No. Mg is found from the 
expression: 

^ = F(M^) - F(M2) (1) 

where 


F (M) 


1 - M^ . 

y 


V + 1 

2y 


In 


(y + 1) M^ 

2 (l + 2^ M^) 


( 2 ) 


C-123 


LOCKHEED MISSILES 8e SPACE COMPANY 



LMSC-A991396 


fr 

If — and Mg are given, then (which is less than Mg) can be found from 
Eq, (1) by solving (on a trial and error basis) for the value of Mj^ , such that: 


6 (M^) = 


F (^lAssumed^ 


F (Ma) ^ I < 


( 3 ) 


where e = a small value « 0.00005. 


Since Mg > M^^ , the value of F (Mg) < F (M^^). That is, F (M) decreases as 
M increases for 0.0 < M 1.0. (Note that F (M) is undefined for M = 0.) 
Thus a positive error (f >0.0), implies that an increase in M^^ (assumed) 
is required, and vice versa. Setting (Mi)j^^ to 10~^^ and (Mi)j^^ to 1.0, and 
e = 0. 00005, a solution can usually be foimd in less than twenty iterative loops of 
Eq. (3). 

With Mj^ known, the pressure drop can be determined. From Shapiro, pp 168 and 
pp 169, (Ref 1.9-16): 


where 



and the compressible flow solution has been obtained. 
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MATH MODEL FOR SUBROUTINE ECLSS 
PURPOSE OF SUBROUTINE 

The subroutine provides in integrated subprogram package which permits the 
computation of the basic life support system parameters for dynamic and parametric 
system analysis. The analytical capability of the subprogram package includes 
system sizing and weight generation computational techniques for the system components , 
as well as the capability for computing the dynamic energy -requirement history 
associated with consumables storage and utilization. 

SUBPROGRAMS AND SYMBOLS REFERENCED IN MATH MODEL 

Subroutine, functions and data lookup table numbers are referenced with the using 
equations and procedures contained in this math model. The asterisk (*) implies 
quantity multiplication and the paranthesis ( ) serve to group a set of mathematical 
terms. 

PROCEDURE AND MODEL 

1. Input Required for Life Support Duty Cycle 

DCYCLE(I) - Time duration of each interval requiring life support 

operation (hrs) 

DCYCLE(I+1) — Time duration of each nonoperating life suppport 

interval (hrs) 

RPRTIM — Time duration of interval during which cabin or airlock 

repressurization is required 

2. Input Required for Life Support System Characterization 

MDAYS - Mission duration — Days 

NCREW — Number of Men in Crew 

NRPRES — Number of cabin or airlock repressurizations required 
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NDARES 

02FN0M 

GLKRAT 

TLSN0M 

RH0BEG 

TKFTEM 

TKFPR5 

TENVR 

CABV0L 

LINDIA 

HTRFLX(l) 

HTRFLX(2) 

PLSN0M 

HTRDIA 

HTRLNG 

PSETl 

PSET2 

P0P02 

P0PN2 

PVP02 

PVPN2 

T02IN 

TN2IN 


— Number of days supply of reserve gases 

— Oxygen consumed per man day (Ib/day) 

— Vehicle gas leakage rate (Ib/day) 

— Delivered gas nominal temperature (°R) — O 2 or N 2 

— Cryogen gas fill density (Ib/cu ft) — O 2 or N 2 

— Gas storage tank final temperature (°R) — O 2 or N 2 

— Gas storage tank final pressure (psia) — O 2 or N 2 

— Environmental temperature aroimd life support gas 
storage systems 

— Airlock or cabin volume (cu ft) 

— Diameter of inlet line to gas heat exchanger (inches) — 

O 2 or N 2 

— Electric heater manufacturer's energy output rating for 
heat exchanger heating units (Btu/H„ -ft2 -OR) — 

and N 2 

— Electric heater manufacturer's energy output rating for 
tank heater units , (Btu/hr-ft^-OR) — ©2 and N 2 

— Delivered gas pressure (psia) — Og or N 2 

— Heater diameter for tank heater units , (1) for O 2 tank, 
(2) for H 2 tanlc 

— Heater length for tank heater units (1) for O 2 tank, 

(2) for H 2 tank 

— Oxygen tank lower pressure limit -pressure setting (psia) 

— Hydrogen tank lower pressure limit -pressure setting (psia) 

— Oxygen tank operating pressure 

— Nitrogen tank operating pressure 

— Oxygen tank vent pressure 

— Nitrogen tank vent pressure 

— Initial 0^ tank temperature 

— Initial N 2 tank temperature 


Compute Quantity of Fluids Consumed for Life Support for Each Duty Cycle 
Interval and Total Gas Requirements 


Let 6 = Operating Duty Cycle Periods 

Let T = Nonoperating Duty Cycle Periods 
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02MWT(I) 

= 

(02FN0M j ^ NCREW* f)(I) 

02LWT(I) 

= 

0.21 * * f^(I) 

N2LWT(I) 

- 

0.79 * ( — ) * P(I) 



I” 

02MC0N 

= 

7 . 02MWT(I) 



1 = 01 



I = 0f 

02LC0N 

= 

/ , 02LWT(I) 



1 = 01 



II 

N2LC0N 

= 

N2LWT(I) 



1 = 01 

GASWGT 

= 

Sp Vol Air = V = 

^AIR 

02REPR 

= 

0.21 * NRPRES * GASWGT 

N2REPR 

= 

0.79 * NRPRES * GASWGT 

02C0NS 

= 

02MC0N + 02LC0N + 02REPR 

N2C0NS 

= 

N2LC0N + N2REPR 


13.2743 


Compute Reserve Gases Required for the Mission 


02MRES 

02LRES 

N2LRES 

02RES 

N2RES 


= 02FN0N * NCREW * NDARES 
= 0.21 * GLKRAT * NDARES 
= 0.79 * GLKRAT * NDARES 
= 02MRES + 02LRES 
= N2LRES 
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Compute Usable Gas Consumables Total 

02T0TU = 02C0NS + 02RES 

N2T0TU = N2C0NS + N2RES 


Compute Nominal Flowrate, Repressurization Flowrate, Maximum Flowrate and 
Quantity Consumed — Each Interval 


WD0T0N(I) 

WDOTNN(I) 

WP0T0R(I) 

WD0TNR(I) 

WDT02(I) 

WDTN2(I) 

WT02(I) 

WIN2(I) 

WDT0MX 

WDINMX 

WD0TI(I) 

WD0TI(2) 


e(I) 

N2LWTq) 

0 ( 1 ) 

= (02REPR/NRPRES)/RPRTIMq) 

= (N2REPR/NRPRES)/RPRTIMq) 

= WD0T0Nq) + WD0T0Rq) 

= WD0TNNq) + WD0TNRq) 

= WD0T0Nq) * P(I) + WD0T0R(1) * RPRTIMq) 

= WD0TNNq) * eq) + WD0TNRq) * RPRTIMq) 

= WDT02(MAX) 

= WDTN2(MAX) 

= WDT0MX/36OO.OO = WD0TTq) 

= WDTNMX/3600.00 = WD0TT(2) 

(1) = ©2 ; (2) = Ng 




Determine Initial Tank Conditions 

TEMP02 = f (P0P02 , RH0BEG(1) ) 

TEMPN2 = f (P0PN2, RH0BEG(2) ) 


Table 5 
Table 19 
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CISBV0 = f (TEMP02, P0P02 , 1) 

CISBVN = f(TEMPN2, P0PN2, 18) 


Function CSUBV 


Function CSUBV 


8. Compressibility at Final Tank Conditions 


ZF0 = f (TKFTEM(l), TKFPRS(l), 1) 

Function ZGET 

ZFN = f (TKFTEM(2), TKFPRS(2), 18) 

Function ZGET 


9. Compute Tank Conditions for Each Duty Cycle Interval 


(a) Percent Usable Fluid Withdrawn; 


TK0W 

= TK0W + WT02(I) 

TK02DP(I) 

= TK0W 

PCOXWD(I) 

TK02DPa) 

02T0TU 

TKNW 

= TKNW + WTN2(I) 

TKN2WD(I) 

= TKNW 

PCN2WD(I) 

TKN2DP(I) 

N2T0TU 


(b) Density of Fluids As Fimction of Percent Withdrawn 


Cl 

/ 144.0 \ 

^ /1544.2546\ 

\RHOBEG(l)/ 

\ 31.9988/ 

C2 

/ 144.0 ' 

\ /1544.2546 

\RH0BEG(2) 

1 \ 28.0134 

C3 

1 * 

TKFPRS(l) \ 

\ZF0 * 

TKFTEM(l)/ 
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C4 

02RH0(I) 

N2RH0(I) 


= 1 




C2 * TKFPRS(2> \ 
FN * TKFTEM(2)/ 


= RH0BEG(1) * j 1 - 
= RH0BEG(2) * jl - 


PC0XWD(I) * C3 
PCN2WD(I) * C4 


(c) Fluid Temperature In Tanks ; 


02TEMP = f [P0P02, 02RH0(I)] 


Table 5 


N2TEMP = f [POPN2, N2RHO(I)] 


Table 19 


(d) Specific Heat Input (DQ/DM) and Energy Derivative (DP/DU); 


From subroutine PHTH0N(02TEMP(I) , 02RH0(I), 1,PHI,THETA) 

DQDM02(I) = THETA 
DPDU02(I) = PHI 

From subroutine PHTH0N(N2TEMP(I),N2RH0(I), 18, PHI, THETA) 


DQDMN2(I) = THETA 
DPDUN2(I) = PHI 


(e) Size Conditioning Heat Exchangers for Fluids; 


Enthalpy of Delivered Gases 


HLS0 = f (P0P02,TLSN0M(1)) 


Function 0XENTH 


HLSN = f (P0PN2, TLSN0M(2)) 


Function NIENTH 
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Enthalpy of Gas — Each Interval 


02H(I) 

= f (P0P02, 02TEMP(I)) 

Function 0XENTH 

N2H(I) 

= f (P0PN2 , N2TEMP(I)) 

Function NIENTH 

QDT0R(I) 

= WDT02(I) * (HLS0 - 02H(I)) 


QDT0MX 

= f (QDT0MX, QDT0R(I)) 

Function AMAXI 

QDTNR(I) 

= WDTN2(I) * (HLSN-N2H(I)) 


QDTNMX 

= f (QDTNMX, QDTNR(I)) 

Function AMAXI 


(f) Power Required to Provide Energy in Heat Exchanger — Each Interval 
and Total; 


HWAT02(I) 

HWT0MX 

HWT0TT 


= QDT0R(I) * 0.293 
= AMAXI (HWT0MX, HWAT02(I)) 

HWAT02(I) 

1 = 01 



HWATN2(I) 

HWTNMX 

HWT0TT 


= QDTNR(I) * 0.293 
= AMAXI (HWTNMX, HWATN2(I)) 



HWATN2(I) 


(g) Size 02 and N2 Tank Heat Requirements; 


QDTTK0(I) = WDT02(I) ♦ DQDM02(I) 
QDTTKN(I) = WDTN2(I) * DQDMN2(I) 
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(h) Power to Provide Energy to Tanks ; 


TWAT02(I) 

= QDTTK0(I) * 0.293 

TWT0MX 

= AMAXI (TWT0MX, TWAT02(I)) 


I = P£ 

TWT0TT 

= TWAT02(I) 


If 

TWATN2(I) 

= QDTTKN(I) * 0.293 

TWTNMX 

= AMAXI (TWTNMX, TWATN2(I)) 


I = 0£ 

TWTNTT 

= y. TWATN2(I) 



T0TWMX 

= HWT0MX + HWTNMX + TWT0MX 

T0TWAT 

= HWT0TT + HWTNTT + TWT0TT 

T0TP0W 

= T0TWAT/1OOO. 0 (KW) 

Calculate Tank 

Heater Ratings Required: 


HTRRAI 

HTRRA2 


(TWT0MX/O.293) 

(TT * HTRDIA(I) * HTRLNG(l)) 

(TWTNMX/0.293) 

(TT X HTRDIA(2) * HTRLNG(2)) 


(These values are used later only if HTRFLX(2) = 0.0.) 


Compute Fluid Densities At Final Conditions 


RH0END(1) 

RH0END(2) 


= f (02TEMP(MAX),TKFPRS(1),IGAS) 

Subroutine DENS0N 

= f (N2TEMP(MAX) , TKFPRS(2) , IGAS) 

Subroutine DENS0N 
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11. Compute Weight of Residual Fluids in Tanks 

WTRSID(l) = Lh0beG(1) ) * i RH0END(1) ) * (02C0NS + 02RES) 

RH0BEG(1) / 

"^tRsid(2) = * (- r^eNM)) * ^ 

RH0BEG(2)/ 

12. Compute Volume and Surface Area of Tanks 


VOLTK/B = 02T0TU + WTRSID(l ) 

' ' 0.97 * (RHOBEG(l) - RHOEND(l)) 

= N2T0TU + WTRSID(2) 

^ ^ 0.97 * (RH0BEG(2) - RH0END(2)) 


ARETK(l) = 4.84 * (V0LTK(1)) 


0.667 


ARETK(2) =4.84 * V0LTK(2)) 


0.667 


13. Compute Heat Leak Into Fluid Tanks 


T0CND(I) 

TNCND(I) 

Q02LK(I) 

QN2LK(I) 

QLK0TK 

QLKNTK 


= f (TENVR,02TEMP(I),SNBAR(1),SITHIK(1),SITYPE(1)) 

Subroutine TC0ND 


= f (TENVR,N2TEMP(I),SNBAR(2),SITHIK(2),SITYPE(2)) 

Subroutine TC0ND 

= T0CND(I) * ARETK(l) ♦ 0(1) 

= TNCND (I) * ARETK(2) * 0(1) 



Q02LK(I) 



QN2LK(I) 
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14. Compute Quantity of Fluids Vented During Each Interval and Total Fluid Vented 


CSBV02(I) 

CSBVN2(I) 

QREQD0(I) 

QREQDN(I) 

DELQ(I) 

WVNT0(I) 


CSUBV(02TEMP(I), P0P02 , 1) 

CSUBV(N2TEMP(I), P0PN2 , 18) 

|Y 0 . LTK(1)^ * CSBV02 (I) j (PVNT0 - P0P02) * 144.0 
|y,aLTK(2) ♦ CSBVN2(I) \ , ^ 

Q02LK(I) - QREQD0(I) 

DELQ(I) 

CSBV02(I) * 02TEMP(*) * ~ 


WV02 

DELQN(I) 

WVNTN(I) 


WVN2 


^ WVNT0(I) 

I = fil 

QN2LK(I) - QREQDN(I) 

DELQNff) 


CSNVN2(I) ♦ N2TEMP(I) * ( p ' 0p™ ) ~ 


I = 0< 


1 = 0 - 


WVNTN(I) 


15. Total Fluids Loaded Into Tank 


T0TWTL(1) = 02T0TU + WTRSID(l) + WV02 
T0TWTL(2) = N2T0TU + WTRSID(2) + WVN2 
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16. Diameter of Fluid Tanks — Assumed Spherical 

DITK(l) = 1.9098 ♦ . 12.0 

DITK(2) = 1.9098 » *12.0 


17. Fluid Tank Insulation Weight 


TIWT(l) 


ARETKd) * RH0I(SITYPEq)> * SITHIKdl 

12.0 


TIWT(2) 


ARETK(2) * RH0I {SITYPE(2)) * SITHIK(2) 

12.0 


18 . Diameter of Fluid Tank Vacuum Jackets 


DIVJ(l) = DITK(l) + 1.60 

DIVJ(2) = DITK(2) + 1.85 


19. Compute Weight of Tank Pressure Vessels 

I^SFTUd) = RH0^MTYPE)/1728.O 
FTUX = f(SMTYPE) 

See Table (21 + SMTYPE) 


R0FTU(2) 


RH0L(SMTYPE)/1728. 0 
FTUX 

FTUX = f (SMTYPE) 

See Table (21 + SMTYPE) 


WTPV(l) = 7000 * ( |h^bJ^(^ ) * P0P02 * R0FTU(1) 

WTPV(2) = 7000 * * P0PN2 * R0FTU(2) 
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20. Compute Weight of Vacuum Jackets 


SPWTl 

= f (DIVJ(l)) 

Table 17 

SPWT2 

= f (DIVJ(2)) 

Table 17 

WTVJ0 

= SPWTl * 

ARETK(l) 

WTVJN 

= SPWT2 * 

ARETK(2) 


21. Total Weight of Tank Assembly 

WTT0T(1) = WTPV(l) + WTVJ0 + TIWT(l) 

WTT0T(2) = WTPV(2) + WTVJN + TIWT(2) 

22. Weight of Heat Exchangers 

WHXT0T(1) = f (TEMP02, TLSNUM(l) , P0P02 , HTRFLX(l), LINDIA(l), 
WDT0MX, 02RH0(MAX),IFIN) 

From subroutine HEXELC 

WHXT0T(2) = f(TEMPN2, TLSN0M(2), P0PN2, HTRFLX(l), LINDIA(2), 

WDTNMX, N2RH0(MAX), IFIN) 

From subroutine HEXELC 

23. Compute Tank Energy History and Heater Duty Cycle 

The tank energy history and heater duty cycle model parallels closely to the model 
employed in subroutine FUELCL. By using that model, or, by inspection of the 
coding given in the ECLSS listing, the model may be readily understood. Hence, it 
will not be repeated here. 
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MATH MODEL FOR SUBROUTINE FL0RAT 
PURPOSE OF SUBROUTINE 

To provide for the calculation of cryogen flow rates required in supplying fuel and 
oxidizer to gas generators which are not primary cryogen consumers in any given 
system. Such gas generator may be required for heat exchanger heat sources or 
to power turbine driven equipments . The calculations provide a means of arriving 
at the total cryogen consumption for the primary system consumer and its ancillary 
support system. 

SUBPROGRAMS AND SYMBOLS REFERENCED IN MATH MODEL 

The subprograms and symbols used are referenced with the equations employed in 
the model. The asterisk (*) implies multiplication and parenthesis ( ) serve to 
group a set of mathematical manipulations. 

PROCEDURE AND EQUATIONS 


1. Variable Definitions: 


Model 

Woe 

Program 

WDOTI(l) 

O 2 

Definition 

max flow rate to consumer 

WrC 

WDOTI(2) 

«2 

max flow 

rate to consumer 

w 

oi 

WFLOl 


flow rate 

to condition Og 

w 

'^02 

WFL02 

^2 

flow rate 

to condition Hg 

w 

'^Hl 

WFL03 

»2 

flow rate 

to condition Og 

Wh2 

WFL04 

»2 

flow rate 

to condition H 2 

Wq3 

WFL05 


flow rate 

to drive turbine 
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Model 

Program 

Definition 

Wq4 

WFL06 

Og flow rate to drive Hg turbine 

Wh3 

WFL07 

Hg flow rate to drive O 2 turbine 

Wh4 

WFL08 

Hg flow rate to drive turbine 

^CIN 

— 

Enthalpy at cold fluid inlet 

^COUT 

— 

Enthalpy at cold fluid outlet 

«AIN 

— 

Enthalpy at hot fluid inlet 

^HOUT 

— 

Enthalpy at hot fluid outlet 

^TIN 

— 

Enthalpy at turbine hot gas inlet 

Htout 

— 

Enthalpy at turbine hot gas outlet 

^^EST 

DELHTP 

Pump pressure rise 

^L02 

RHOLQ(l) 

Density liquid oxygen 


PEFF 

Pump efficiency 

r/T 

TEFF 

Turbine efficiency 

^TIN 

— 

Enthalpy turbine inlet gas 

HpouT 

— 

Enthalpy turbine outlet gas 

^LH2 

RHOLQ(2) 

Density liquid hydrogen 


TMRATO 

Mixture ratio (0/H) HEX 

^^TBN 

TMRATC 

Mixture Ratio (0/H) Turbine 

HXGG 

— 

Heat exchanger gas generator 

TBGG 

— 

Turbine gas generator 

2. Equations for Fluid Flow Rates 



The equations which express the fluid species flow rates for fluids to power the heat 
exhanger gas generator and turbine gas generators were derived originally for the 
combined heat exchanger and turbine gas generators. In coding the equations for the 
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subroutine it was found that splitting out the heat exchanger and turbine gas generator 
portions of the equations provided more flexibility in calculational technique and 
checkout . Therefore , the model will be shown in its revised form since this permits a 
better appreciation of the gas generator requirements on a system. 

The equations are as follows: 


(1) Fluid Flow Rates for Heat Exchanger Gas Generators — 


(a) Og flow rate to HEX gas generator: 

^ ^OC <‘^1 ■^4 - ■^1> ^HC «- 

01 (Kj + + Kj Kg - Kj - 1) 

(b) O 2 flow rate to Hg HEX gas generator: 

• %c (-S ^ K3 - ■^3) 

™02 (K^ + + Kg Kg - Kj - 1) 

(c) Hg flow rate to Og HEX gas generator; 

■ _ ^OC ^^2 ^4 ” ''' ^HC ^”^2 ^ 3 ) 

'^Hl (K^ + K 4 + Kg Kg - K 4 - 1 ) 

(d) Hg flow rate to Hg HEX gas generator: 

^ ^OC <-^2 ^ 4 ) ^ (K, K^ - K^) 

'^H2 (K^ + K^ + Kg Kg - K^ K^ - 1) 
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where: 


K, 


K. 


K. 


K. 


^CONT 

^CIN 

>^HIN - 

^HOUT 

^CONT 

^CIN 

,%IN 

^HOUT 

^CONT 

^CIN 

%IN 

^HOUT 

^CONT 

- »oin' 

^HIN 

^HOUT y 


02HX 


02HX 


/ MR \ 
\1 + MR j 

(i + mr) 


02HXGG 


02HXGG 


/ MR \ 
\1 + MR/ 


H2HXGG 


H2HX 


(i + mr) 


H2HXGG 


(2) Fluid Flow Rates for Txurbine Gas Generators — 

The turbine considered herein is part of a turbopump assembly, 
(a) O 2 flow rate to turbopump gas generator: 

(^5 ^8 - (-K5 K^) 

03- (Kg + Kg KgK, - KgKg - 1) 


(b) O 2 flow rate to H 2 turbopump gas generator: 



Wqc <-Ke K7) - Kl> 

(K 5 * ^8 ^ KjK, - KjKg - 1) 
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(c) Hg flow rate to turbopump gas generator: 


Wqc ^ Wjjc (-^6 ^7) 

H3 - (K5 + Kg + KgK^ - KgKg - 1) 


(d) Hg flow rate to Hg turbopump gas generator: 

WqC ^8) ^ Wjjc (Kg Kg - Kg) 

H4 - (Kg f Kg + KgK^ - KgKg - 1) 


W, 


where 


K, 


^6 = = 


K. 


K, 




* ^^EST 


/*L02 

*1 

Ip * >; T * (H JIJJ 

”tout) 



* ^Pest 


/*io2 


p * /J j * (Hpjjj 

^TOUT^ 



'>• * -^Pest 


/LH2 

♦ 

I p * ^ t * ^TiN 

®TOUT^ 

r 


* ^^EST 

-| 

/lH2 


!p * ^TIN 

^TOUT^ 


J02TP 


02 TP 


JH2TP 


/ MR \ 
\1 + MRj 


(1 + mr) 

/ MR 
\1 + MR 


( 1_ 

+ MR 


JH2TP 


(3) Combined Flow Rate to Heat Exchanger Gas Generators — 


Oxidizer: 

WDHXT0 = + Wq2 
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Fuel; 


WDHXTF = 

111 ri^ 


(4) Combined Flow Rate to Turbopump Gas Generators — 


Oxidizer: 

WDTPT0 = Wq3 + 


Fuel : 


WDTPTF = W + W 

H3 H4 


(5) Total Flow Rates, Consumer Plus All Gas Generators — 
Oxidizer; 

WD0TT(1) = WD0TI(1) + WDHXT0 + WDTPT0 

Fuel: 

WD0TT(2) = WD0TI{2) + WDHXTF + WDTPTF 
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MATH MODEL FOR SUBROUTINE FUELCL 
PURPOSE OF SUBROUTINE 

To provide an integrated subprogram package which permits the computation 
of basic fuel cell reactant supply system parameters for dynamic and 
parametric system analysis. The analytical capability of the subprogram 
package Is to Include system sizing and weight generation techniques for 
the system conq>onents, as well as the capability for computing the dynamic 
energy- reqtilrement history associated with reactant storage euid utilization. 

SUBIROGRAMS AND SYMBOLS REFERENCED IN MATH MODEL 

Subroutines, fxmctions and data look-up table numbers are referenced with 
the using equations and procedures contained In this math model. The 
asterisk (*) implies quantity multiplication and parentheses () serve to 
group a set of mathematical manipulations. 

PROCEDURE AND MODEL 

1. Input Required for Fuel Cell Duty Cycle 


DCYCLE (I) - Time Duration of Each Constant- Power Time Interval (Hrs.) 

DCyCLE (I +1) - Time Duration of Each Non-operating Time Interval (Hrs.) 
NE0P (l) - Number of Units Operating Each Time Interval 

PKW (l) - Power Level of Each Operating Unit - Each Intez^al (KW) 

Input Required for Fuel Cell System Characterization 

MRFC 

- 

Mlxtxxre Ratio (0 /f) for Fuel Cell(s) 

SRCFC 

- 

Specific Reactant Consumption for Fuel Cell Under 
Consideration 

QDTFC 

- 

Nominal Heat Rejection Rate for Fuel Cell (BTU/KW-HR 
@ Rated Power) 

SPWTFC 

- 

Specific Weight for Fuel Cell (LBS/KW @ Rated Bower) 

TFCNOM 

- 

Fuel Cell Nominal Temperature - Each Fluid (^) 

TF21IN 

- 

F21 Temperature Available to System (°R) 

TF210U 


F21 Temperature Leaving System (°R) 

TF0FC 

- 

Final 02 Tank Temperature (°R) 

TFHFC 

m 

Final H2 Tank Temperature (°R) 
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PF0FC 

- 

Final 02 Tank Pressure (PSIA) 

PFHFC 

- 

Final H2 Tank Pressure (PSIA ) 

RH0FIL 

- 

Fill Density - Each Fluid (LB/CU FT) 

W07EHT 

- 

Estimated 02 Vented (LBS) 

WHVEMT 

- 

Estimated H2 Vented (LBS) 

DELTCP 

- 

Tank Circulating Pump Delta-P (PSI) 

TENV 

- 

Fuel Cell System Environment Temperature (°R) 

PRFC0P 

- 

Fuel Cell Operating Pressure (PSIA) 

P0WN04 

- 

Fuel Cell Nominal Operating Power (KW) 

NFC0P 

- 

Number of Fuel Cells Operating 

NFCSTB 

- 

Number of Fuel Cells on Standby 

PLSETI 

- 

02 - Tank Lower Pressure Limit (PSIA) 

PLSET2 

- 

H2 - Tank Lower Pressure Limit (PSIA) 

VJANUL 

- 

Reactant Tank Vacuum Jacket Annulus - Each Tank (IN^) 

TKMXDI 

- 

Reactant Tank Pressure Vessel Maximum Diameter - Each 
Tank (IN^^) 

FCV0LT 

- 

Fuel Cell Average Voltage Level (Volts) 

PRGRAT 

- 

Fuel Cell Purge Gas Flow Rate - Each Reactant (LBS /HR) 

PRGTIM 

- 

Fuel Cell Purge Time - Each Purge - Each Gas (HRS) 

iRGIRT 

- 

Fuel Cell Purge Interval (Ampere Hours) 

Computer Total 

Power Supplied for Mission 



(n, 2) 

P0WT0T 


y (PKW^) (DCYCLE^) 


i = 1 


Compute Reactant Required for Pover and Reactant Flow Rates 
Each Interval ; (LBS) 

WRP^ » PKW^ X DCYCLE^ x HFC0P 

Total Reactant : (LBS) 

n 

WRP|teP *= ^ WRP^ 

i » 1 
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Oxygen for Paver ; ( LBS-Total ) 

W0C0R3 - WRFCRP ♦ / MRFC \ 

'mrfc + 1 

I^drogen for Power ; (LBS - Total) 

WHC0HS . WRFWP* (j-THSo) 

02 Each Interval ; (LBS) 

W0RFP = WRP * / MRFC v 

^ ^ ' MRFC * 1 ^ 

Hg Each Interval: (LBS) 

WHRFP^ - * (iT^ > 

02 and H2 Flow Rates - Each Interval : (LBS /HR) 
WOTPO0J - PKWj.SBCPO * 

WOTPCHj - PIW^PSROPC .(j-i—) 

Maximum 02 and H2 Flow Rates : (LBS/HR) 

MDOTMX ((fe) . SECFC • PKW^ « 

WDfiTMX (H3) , SECPC * PKW^ * (— 

5. Determine Average Heat of F21 Ifot Fluid 


TMP21 - TF21IN * TF21QU 

2 
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Cp F21 - f(TMF2l) (See Function CSPF21) 

QF21 » CpP21 (TF21IN - TF210U) (BTU/LB) 

6. Compute Total Heat Rejected by Fuel Cell and Heat Re.lected for Each 
Operating Interval . 

QAVAILj^ . QOTFC (PKW^) (DCYCLE^) (NE0P^) 
n 

QFCT0T * ^ QAVAIL^ (BTU) 

i - 1 

Hot Fluid Flow Rate - Each Interval 

QF21 (LBS/HR) 

7. Determine Reactant Tank Conditions ° Initial and for Each Duty Cycle 
Interval 


Enthalpy of Fluids Feeding Fuel Cell 


HFL0 

» f (PC0FC, TFCN0M (l)) 

(See Function QXEKFH) 

HFCH 

= f (PCHFC, TFCM^ (2)) 

(See Function HXEHTH) 

Initial Tank Temperatures 


TEMP02 

- f (PC0FC, RH0FIL (l)) 

(See Data liable >5) 

TEMPH2 

== f (PCHFC, RH0FIL (2)) 

(See Data Table >6) 

Initial 

Cy Values In Fluid Tanks 


CISBV0 

=» f (TEIiP02, PC0FC, Fluid) j 


CISBVH 

= f (TEMPH2, PCHFC, Fluid) )’ 

See Function CSUBV 
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COMPUTE COMPRESSIBILITY OF 02 AND H2 AT FINAL CONDITIONS 

ZF0 = f (TF0FC, PF0FC, Fluid) (See Function ZGBT) 

ZFH = f (TFHFC, PFHFC, Fluid) (See Subroutine ZFIND) 

QUANTITY AND PERCEM' OF USABLE REACTAUTS WITHDRAWN UP TO EACH INTERVAL IN THE 
MISSION - FOR ALL INTERVALS 
( For i = ltoi=^) 

TK02WD^ = ( (WDTFC0^*DCYCIiE^) + TK0WD^ ^) 

TKH2WD^ = ( (WDTFCH^*DCYCLE^) + TKHPWD^ ^) 

PERCENT WITHDRAWN INCLUDING ESTIMATED 20/o RESOUPCE REACTANT 

PCuDiT^? — TK02WDj^ 

^ ~(W0C0NS + O.2*W0C0NS) 

FGWUHP = TKEI2WDx 

~(WHC0NS + O.2*WHC0NS) 

COMPUTE DENSITY CF FLUIDS AS FUNCTION OF PERCENT FLUID WITHDRAWN 


First Compute Density Modifiers; 


Cl 


/ 144.0 

'' RH0FIL(1)^ 


* 


1 ^ 44 . 2^46 N 
3l.99«a ' 


C2 


144.0 

RH0FIL(2)'' 


* 


1^44.2946 >. 

2.01594 ’ 


C3 = 1.0 


/ C1*PF0FC N 
^ZF0«-TF0FC ' 


C4 = 1.0 


C2*PFHFC^ 

''ZFH*TFHFC^ 


Then Compute Density as f (PCWP) ; 

RH0T2^ = RH0FIL(l)*(l.O-(PCWD02^*C3) ) 

RH0T2^ = RH0FIL(2)*(1.O-(PCWDH2^*C4) ) 
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REACTAM' FLUID TEMPERATURES FOR EACH INTERVAL 

TK0^ = f (PC0FC, RH0T02) (See Data Table - 5 ) 

TKH^ = f (PCHFC, RH0TH2) (See Data Table - 6 ) 

REACTAUT FLUID SPECIFIC HEAT INPUT ( THETA) EACH INTERVAL 

DQDW0. = f (TK0^, RH0T02^) (See Subroutine PEITH0W) 

DQDWH^ = f (PCHFC, RH0TH2^) (See Data Table - 4) 

REACTAM' FIUID ENERGY DERIVATIVE (FHI) FOR EACH INTERVAL 

PHIF02^ = f (TK0^, RH0T02^) (See Subroutine PHTH0N) 

PHIFH2^ = f (PCHFC, RH0TH2^) (See Data Table - I 8 ) 

8 . SIZE REACTAM FEUID TAIJK HEAT REQUIREMENTS - FOR EACH DUTY CYCLE IMERVAL 
Q20DTR^ = WDTFC0^*DQDW0^ 

Q2HDTR^ = WDTFCH^*DQDWH^ 

WDT2F0. = Q20DTR^ 

^ QF21 

Q2HDTR. 

9 . SIZE REACTAM FIUID COHDITIOMWG HEAT EXCHANGERS - FOR EACH DUTY CYCLE IMERVAL 
EMHALPf OF FIUIDS LEAVING TAMS ; 

HTH0^ = f (PC0FC, TK0i) (See Function 0XEMH) 

HTKH^ = f (PCHFC, TKHj^) (See Function HYEMH) 
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HEAT REQUIRED TO CONDITION FLUIIB: 


Q10DTR^ 

= WDTFC0^*(HFC0 - 

HTK0^) 

QIHDTR. 

1 

= WDTFCH^*( HFCH-HIKH^ ) 

WDT1F0. 

Q10DTR^ 

0F21 


WDTIFH. 

QIHDTR. 

= X 


1 

QF21 



10* CHECK TO SEE IF ADEQUATE SUPPLY OF FUEL CELL REJECT HEAT IS AVAILABLE FOR AT.T, DUTY CYCT.E 
INTERVALS 

QSUMR^ = Q10DTR^ + QIHDTR^ + Q20DTR^ + Q2HDTR. 


QT0TR = 


n 



DQNET^ = QAVAIL^ - QSUMR^ 

QEXCES = QFCT0T - QT0TR 

11. FIND MAXIMUM REQUIRED HOT FLUID FLOW RATE ; 

WF21MX = f (WDT1F0^, WDTIFH^, WDT2F0^, WDT2FH^) (See Function AMAXi) 

12. COMPUTE WEIGHT OF REACTANT FLUID TANK HEATER CIRCULATING COMPRESSOR 

FIRST COMPUTE MAX. HEAT FLOW REQUIRED I NTO TANKS 

QMX:TK0 = AMAXI (AMXTK0, Q20DTR^) 

QMKTKH = AMAXI (QMKTKH, QPHDTR^) 

TK0MAX = AMAXI (TK0MAX, TK0^) 

TKHMAX = AMAXI (TKHMAX, TKH^) 

i = 1 
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where: Initial value of all max. variables is zero and n is number of duty- 

cycle inter-vals. (See Function AMAXi). 

COMPUTE RH AND C„ AT FINAL TANK TEMPERATURE AND PRESSURE 
o P 


02: 


RH0FIN (l) = f (TK0MAX, PFOFC, Fluid) See Subroutine DENS0N 
CDF0 = f (TK0MAX, PF0FC, Fluid) See Subroutine CSUBP 


H2: RH0FIN(2) = f (TKHMAX, PFHFC, Fluid) 

CPFH = f (TKEiMAX, PFHFC, Fluid) 


See Subroutine GSDNST 
See Subroutine CSUBP 


COMPUTE CIRCULATING COMPRESSOR FLOW RATE FOR TANKS: 


WDTCF^ = QMXTKO 

~GPF0*( TF21IN-100. -TK0MAX) 


WDTCFH = 


QMXTKH 


CPFH*(TF21IN-125 . -TKHMAX) 
COMPUTE CIRCULATING COMPRESSOR WEIGHT 


ASSUMPTIONS ; 


Compressor weight is 2 Ib/HP 
Compressor efficiency is 6o^ 
Compressor pressiire rise is input. 
Tank is near final conditions. 


W0CMP = ^ HSn*33ro'x°o.6 


wslcMP= wPTcrfoo.oi4;5*E]ajCF 

^ RH0FIN(1) 

WLTCFH*0 . 01^55 X DELCP 

RH p f N( ' 2) 


13 . COMPUTE RESERVE REACTANT QUANTITY - EACH REACTANT 


FIND MISSION EXTRAPOLATED MAX. POWER VALUE: 


P0WMAX = PKWMAX*NFC0F«- 


11 

i = 1 


DCYCLE. 

1 
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FIND TOTAL RESERVE AND RESERVE REACTANT BY SPECI 


Set pressure at 11.5^ of mission extrapolated max. power reactant requirement. 
Change value when defined specific mission 


WRRSRV = SRCFC*P0WMAX* 0.115 
W0RSOT = WEESRV* ( 

WHESFW = mBSRV * (- p /mRTc ) 
lU. COMPUTE WEIGHT OF RESIDUAL REACTANTS 


FOR jfe: 


WTRES(l) 


1.0 

RH0FIN(l) ^ ^ RH0 FIN(i) 

RH0FIL(i) RH0RIL(i) 


* 


(W0C0NS + W0RSRV + W0VENT) 


For H2; 


WTRES(2) 


1.0 

RH0FIN(2) ^ ^ RH0FEN(2) 

RH0kl,(2) m^¥IL{2) 


* (WHC0NS + WHRSRV + WMVENT) 


15 . COMPUTER WEIGHT OF PURGE REACTANTS REQUIRED 


AMPHRS = 


P0WT0T * 1000.0 
FCV0LT 


For 02; 

AMPTTR^ 

PURGAS(l) = PRGRAT(l) * PRG TIM(i) * 


For H2: 


PURGAS(2) 


= PRGRAT(2) * PRGTIM(2) * 


AMPHRS 

PRGINT(2) 
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NUMBER OF PURGES REQUIRED; 


For 02: 


NPRGEl = 


AMPHRS 

PRGINT(l) 


For H2: 


NPRGE 2 


AMPHRS 

roGINT(2) 


COMPUTE VOLUME AND SURFACE AREA OF TANKS 
For 02: 

VOLTNK(l) = + W0RSRV + W0VENT + WTRES(l) + PURGAS(l) ) 

0.97 * (RHPFIL(I) w RHpFIN(l) ) 

AREATKI = 4.84 * (V0LTNK(l) 

For H2: 

(WHC0NS + WHRSRV + WHVENT + WTRES(2) + FURGAS(2) ) 

6.98 * (RH0FIL(2) - RH0FIN(2) ) 

AREATK2 = 4,84 * (V0LTNK(2) 

COMPUTE HEAT LEAK INTO REACTANT TANKS FOR EACH NON-OPERATING INTERVAL AND TOTAL 
COMPUTE THERMAL CONDUCTIVITY OF INSULATION EACH CYCLE 
T0C0ND^ = f (TENV, TK0^, SNBAR(l), SITHIK(1,1), SITYPE(1,1) ) 

THC0NI)^ = f (TENV, TKH^, SNBAE(2), SITHIK(2,1), SITYPE(2,1) ) 


(See Subroutine TC0ND) 
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For 02: 


QLK0^ = T0C0iro^ * AREATK(l) * DCYCLE^ ^ ^ 


QLEAK0 = 



QEK0^ 


For H2: 

QLKH^ = THC0ND^ * AREATK(2) * DCYCLE^ ^ 
n 

QLEAKH = ^ QIXH^ 

i = 1 

18. COMPUTE WEIGHT OF REACTANTS VENTED EACH INTERVAL AND TOTAL VENTED FOR MISSION 


Compute C^: 


CSBV02^ 

CSBVH2. 

X 


= f (TK0^, PCOFC, Fluid) 

= f (TKH^, PCHFC, Fluid) 


(see function CSUBV) 


COMPUTE HEAT REQUIRED TO REACH VENT PRESSURE 

QRQD02 = ’'^0L™K(i) * CSBV02^ ^ (SVPRIS(l,l) - PC0FC) * l44.0 

^ — TOTl 


QR^H2.= 

ff^T5 


* (SVPRES ( 2 , 1 ) - PCHFC) * 144.0 


TEST TO SEE IF HEAT PEAK IS GREATER THAN QR0DXK: 


IF, QROD02^ > QLK0^ ; then WVENT0^ =0.0 
IF, QRQDH2^ > QLKH^ ; then WVENTH =0.0 
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IF NOT - COMPUTE WEIGHT REACTAM' VENTED Am TOTAL VENTED ; 
For 02: 



CSBVH2. * TKH. * C 
1 . 1 \ 


DELQHn- 

SVPRES(2,1> 

\ PCHFC 


WWENTtot " 


n 

Z WVENTH. 
i = 1 


19 . TOTAL REACTAM' LOADED INTO TAMS 

(02 = Index 1, H2 = Index 2, PI =7T) 

WRT0TL ( 1 ) = W0C0NS + W0RSRV + W0VENT + WTRES(l) + PUPGAS(l) 
WPT0TL(2) = WHC0NS + W0RSRV + WHVENT + WTREB(2) + PURGAS(2) 

20. SIZE AND WEIGH REACTANT TANK ASSEMBLIES 

TAM PRESSURE VESSEL DIAMETERS : (Assume Spheres) 
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DIAK(l) =(|j°) 


0.33 


* 12.0 


DIATK(2) = (|j° ) * 


0.33 


* 12.0 


TAUK IMSUIATION WEIGHT : 

TIWTfl l) = ^ AREATK!(i) * RH0I(SITYPE(1,1))^ SITHIK(i,1) 

^ 12.0 

TIWTf2 l) = ^0P(l»l) ^ AREATK(2) * RH0I(SITYPE(2 , l))-> SITHIK(2,1) 

' * J T O A 


DIAMETER OF TAWK VACUUM JACKETS ; 

DIAVJ(l) = DIATK(l) + (VJAMJL(l) * 2.0 ) 

DIAVJ(2) = DIATK(2) + (VJANUL(2) * 2.0 ) 

WEIGHT OF TANK PRESSURE VESSEI5; 

, > 

FIND ^ FTtt ' - FOR TAM MATERIAL (SMTYPE(1, l) ; 

RH0FTU(l) = f (TK0MAX, SMTYPE(1,1) ) 

RH0FTU(2) = f (TKHMAX, SMTYPE (2,l)) 

See Data Tables - Table No. (21 + SMTYPE(-,-.) ) 


COMPUTE PRESSURE VESSEL WEIGHT ; 

WTFVT(l) = 7000.0 * * RH0ITU(l) 

WTPV-T(2) = 7000.0 * ) * PCHFC * RH0ITU(2) 
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21 . 


22 . 


WEIGHT OF TANK VACUUM JACKETS: 


Assumes jacket is aluminum honeycomb sandwich material. 


Find Spec Weight of Vacuum Jacket Material: 


SPWT(l) = f (DIAVJ(l) ) 


SPWT(2) = f (DIAVJ(2) ) 


(See Data Table Number IT) 


WTVJ(l) = SPWT(l) * PI * (DIAVj(l) r 
WTVJ(2) = SPWT(2) * PI * (DIAVJ(2) 

TOTAL WEIGHT OF REACTANT TANK ASSEMBLIES : 

WTTJZ5t(i) = WTPVT(l) + WTVJ(l) + TIWT(1,1) 
WTT0T(2) = WTPVT(2) + WTVJ(2) + TIWT(2,1) 


COMPUTE WEIGHT OP FUEL CELIS 


FCWGT = PKWMAX * SPWTFC * (NFC0P + NFCSTB) 
COMPUTE WEIGHT OF HEAT EXCHANGERS 
FIND MAX. HOT FLUID FLOW RATE : 

WDTFMX= f (WDTFMK, WDTIF0^, WDTIFH^, WDT2F0^, 


WDT2FH. ) 
1 


n 


1 


1 


(See Function AMAXi) 

FIND MAX. HEAT REQUIRED IN F LUID CONDITIONING HEAT EXCHANGERS: 

Q10DMX = f (Q10DMX, Q10DTR^) 

QIHDMX = f (QIHDMX, QIHDTR^) 


n 


i = 1 


(See Function AMAXI ) 
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FIND UKFCNOWN TEMPERATUEES FOR FUEL CELL SYSTEM SERIES HEAT EXCHANGERS : (max. hot 
fluid flow condition) 


02-Cond. 02-Tank H2-Cond. H2-Tank 

HEX HEX HEX HEX 



TF21IN T2F21 T3F21 T4F21 T5F21 


T2F21 


TF21IW - 


/ Q10DMX s 
''CF21*WDTFX '' 


T3F21 


T2F21 


/ QMXTK0 s 
^CF21*WDTFMX^ 


T4F21 


T3F21 - 


/ QIHDMX % 
^CF21*WDTFMX ’ 


T5F21 


TU12I - 


/ QMXTKH X 
^ CF21*WDTFMX^ 


COMPUTE WEIGHT OF 02 AND H2 CONDITIONING HEAT EXCHANGERS ; 

WHXT0T(l,i) = f (fluid, Q10DMX, PC0PC) 

WHXT0T(l,2) = f (fluid, QIHDMX, PCHPC) (See subroutine HEXF21) 

COMPUTE WEIGHT OF 02 AND H2 TANK HEAT EXCHANGERS ; 

WHXT0T ( 2 , 1 ) = f (fluid, QMITK0, (PC0FC + DELTCP ) ) 

WHXT0T ( 2 , 2 ) = f (fluid, QMXTKH, (PCHFC + DELTCP ) ) 

(See subroutine HEXF21) 

23 . COMPUTE TANK ENERGY HISTORY AND HEATER DUTY CYCLE 

The tank history portion of the fuel cell subprogram provides the capability for 
examining the energy history and tank heater duty cycle in subintervals of each 
major duty cycle interval. For convenience, the major duty cycle is subdivided 
into ten (lO) minute intervals. If the duty cycle is less than ten minutes in 
length, it is subdivided into one (l) minute intervals. Further, the odd minutes 
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left over beyond full ten minute subintervals, are evaluated on a per minute basis. 
Fractions of minutes are not considered. 


The tank history and heater duty cycle calculations are similar to those performed 
earlier In the system sizing calculations except for using smaller lncremen|;al 
steps. The calculations are set up to operate In a three (3) level "nested" loop, 
having two (2) defined nested loops with the thlnest loop being an Implied loop, 
controlled by IF statements within the second loop program. 


The nemonic symbology is, for most symbols, quite close to those previously used 
in subsections 1 through 12. Additional nemonics employed are as follows: 


Nemonic 

CTIM 

NTP 


WDT03O 

WOTH30 

TIME 


PTIME 

DTIME 

IK2 

QICUM 

Q2CUM 

BETA0 

BETAH 

CP0 


Meaning 

Number of minutes In a given major duty cycle interval 
Integer number of (either 10 minute, or, 1 minute) subintervals 
being considered in intter loop calculations. Value of NTP is set 
on the outer loop. 

Weight flow of 02 in subinterval, either - Ibs/lO min., or Ibs/min. 
Weight flow of H2 in subinterval, either - Ibs/lO min., or Ibs/min. 
Cumulative time counting index, adds appropriate time interval for 
each calculational pass made through inner loop. Increments of 10 
min, or 1 min, as defined. 

Total time index - total current -Interval plus preceding accumulated 
TIME, (minutes). 

Time in current Interval remaining to be used in calculations, (minutes) 
Integer value of DTIME - used in the implied third loop for odd minute 
calculations . 

Summed heat input required (for 02 withdrawn from tank) to restore 
02 tank pressvire to operating level 

Summed heat input required (for H2 withdrawn from tank) to restore 
H2 tank pressureto operating level. 

Volume expansivity for 02 at temperature and density existing in 
subinterval 

Volume expansivity for H2 at temperature and pressure exising in sub- 
interval. 

Cp of 02 at temperature and pressure existing in subinterval. 
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Meaning 

Cp of H2 at temperature and pressure existing in subinterval 
Calculated tank pressure drop due to loss of energy from 02 withdrawn 
during subinterval 

Calculated tank pressinre drop due to loss of energy from H2 withdrawn 
during subinterval 

02 tank pressure at any subinterval time point 
H2 tank pressure at any subinterval time point 
Heat available in tank heat exchanger (BTU/MIN) 

Lower Pressure limit for 02 TAM HEATER switch 
Lower pressiore limit for H2 tank heater switch 

Number of time subintervals considered in DELPl or DELP2 calculation 
Integer index xised to keep track of odd time (minutes) which must be 
accounted for in duty cycle subinterval. Is integer value of DTIME when 
DTIME is less than 10 minutes. 

(a) SECUP ARRAY OF TIME VARIABLES FOR EACH OF THE MAJOR OPERATING DUTY CYCLE INTERVAIB 

n 

TIMlc^ = DCYCLE 

k = 1 i = 1 

(b) SETUP INCREMENTAL ARRAY FOR SUBINTERVAIS OF EACH MAJOR DUTY CYCLE WITH BRANCHING 
TO 10 MINUTE INTERVALS OR 1 MINUTE INTERVAIS AS REQUIRED; 

CTIM = TIMj^ * 60.0 

(l) IF CTIM IS >10 MINUTES; SETUP OUTER LOOP FOR 10 MINUTE INTERVALS; 

NTP = (TIMj^ * 6.0) + 0.6 (number of sub intervals) 

WDT03O^ = WI)TFC0j^/ 6.O (ibs/lO min) 

WI)TH30^ = WDTFCH^/6.0 (ibs/lO min) 

(2) IF CTIM <10 MINUTES; SETUP OUTER LOOP FOR 1 MINUTE INTERVALS : 

NTP = CTIM + 0.6 (number of subintervals) 

WPT03O^ = WDTFC0j^/6O.O (ibs/min) 

WDTH30^ = WDTFCHj^/ 60.0 (ibs/mln) 



Nemonic 

CPH2 

DELPl 

DELP2 

PTANKl 

PTANK2 

QHSF21 

PISETl 

PISET2 

TIMINC 

IK2 
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NOTE: The value 0.6 is added to the calculation for NTP to insure that the 

octal representation of (TIM^ x 6.0) or CTIM will yield the next whole 
integer when converted. 


(example: 3.6 converts to integer 3 , while 

3.6 + 0.6 converts to integer k) 


(c) SETUP TIME COUNTER FOR INNER CALGUIATIOMAL LOOP: (BE SURE TIME IS SET TO ZERO 

INITIALLY) 


(1) If CTIM >10 minutes, then , 

TIME = TIME + 10.0 

( 2 ) If CTIM <10 minutes, then , 

TIME = TIME +1.0 

(d) PROCEED WITH SUBINTERVAL CAICULAIEONS : 

( 1 ) WGT. REACTANTS WITHDRAWN EACH SUBINTERVAL( i ) : 


TK0DP = TK0DP + WDT03O^ 

TKHDP = TKHDP + WDTH30^ 

( 2 ) PERCENT REACTANTS WITHDRAVfN EACH SUBINTERVAL( i ) : 


PC0XW^ 


TK0DP 

(WJ3C0NS + WORSRY) 


PCH2W. 

1 


TKHDP 

(WHC0NS + WHRSRVT 


( 3 ) DENSITY OF REACTANTS IN TANK AT SUBINTERVAL( i ) : 


0RH0^ 


RH0FIL(l) * 


1^1.0 - PC0XW^ * ( 1.0 


(0.0^25 * PF0FC) \ 
" (ZF0 * TF0PC; ■/ 
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HRH0^ = RH0PIL(2) * [^l.O - PHC2W^ * f 1.0 - 

(4) TEMFERATUBE OF REACTANTS IN TAHK AT SUBIKTERVAL( i ) ; 

0XTEM^ = f (PTANKl^, 0RH0^) (Table lookup - Table No. 5) 

H2TEM^ = f (PTANK2^, HRH0^) (Table lookup - Table No. 6) 

( 5 ) SPECIFIC HEAT INPUT AND ENERGY DEVIATION OF REACTANTS IN TANK AT INTERVAL(l) : 
For 02: 

DQPMl^ = f (0TEM^, 0RH0^, Fluid), for THETA 
DPDUl^ = f (0XTEM^, 0RH0^, Fluid), for PHI 

(See subroutine PHTH0N) 


For H2: 

DQDM2^ = f (PTANK2^, HRH0^) 
DPDU2^ = f (PTANK2^, HRH0) 


(Table Lookup - Table No. 3 ) 
(Table Lookup - Table No. 18) 


(6) HEAT REQUIRED TO RESTORE REACTANT TAEK PRESSURE TO OPERATING PRESSURE ; 
For 02: 

QDTTKl^ = WDT03O^ * DQDMl^ 

QICUM = QICUM + QDTTKl^ 

For H2 : 

QPTTKP^ = WI)T03O^ * DQLM2^ 

Q2CUM = Q2CUM + QLTTKP^ 
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(7) COMHJTE VOUJME BCFAJEIVITY OF REACTAITOS IN TAIJK AT IUTERVALC 1 ) ; (BETA) 
BETA01 = f (0XTEM^, 0RH0^, Fluid) (see Subroutine BETAS) 

BETAH^ = f (FTAM2^, H2TEM^) (Table Lookup - Table No. ^+6) 


(8) COMPUTE SPECIFIC HEAT OF REACTANT FLUIDS IN TANKS AT INTERVAL(i); 



SET POINT ; 
For 02: 


If, PTANK1^< PISETI : 

(a) Calculate number of minutes heating circuit is 0N to add required heat to 
tank : . 

QICUM ^ (BTU-Req'd) 

j XB ro/t S ^^fi) 
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(b) Set heater cycle counter - 

ICHT0 = ICBT0 + 1 

IF PTAM:i^_;> PISETI: Skip (a) and (b) 


For H2; 


If PTAM2^ < PISET2: 


(c) HTR0N2 


Q2CUM 

QHBF21 


(d) ICHTH = ICHTH + 1 

If, PTAM2^ > PISET2: Skip (c) and (d). 

( 13 ) OUTPUT CALCULATED VALUES AED RESET VABIABLES WHERE REQUIRED ; 

If, PTAWKI. < PISETI: 

1 

Reset, HTR0N1 =0.0 
Reset, QICUM =0.0 
Reset, PTANKl^ = PC0FC 

If, PTAM2^< PISET2: 

Reset, HTR0N2 =0.0 
Reset, Q2CUM =0.0 
Reset, PTAM2, = PCHFC 

Proceed through loop again for next time subinterval. 


(l4) Test to see if DTIME is less than 10 minutes, but, greater than 0.0' - to pickup 
odd minutes in duty cycle sub-interva.1 


If, DTIME <10.0, and DTIME>0.0: 

Reset - TIME increment, WDT03O, WDTH 30 and Index for Odd TIME REMAINING, as follows 

TIME = TIME +1.0 

WDT03O_. = 

^ 60.0 

WI)TH30_. = 

^ 60.0 


IK2 = DTIME. - 1 
1 
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Return to 23d. (l) and perform calculations 23d. (l) through 23d. ( 13 ) until the 
value of both IK2 and DTIME^ are zero. At which point the calculations return 
to 23h. for consideration of the next major duty cycle time interval. When 
all major duty cycle intervals are exhausted the subprogram ends. 
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MATH MODEL FOR SUBROUTINE GASGEN 
PURPOSE OF SUBROUTINE 


To provide a procedure for the computation of realistic weights for gas generators. 

The equations employed were developed by Aerojet Liquid Rocket Company in support 
of a study for McDonald-Douglas on GO^/GK^ gas generators. (Ref: 1.9-3) 

PROCEDURE AND MODEL 

The data employed are based upon a gas generator using a coaxial flow injector 
operating at a mixture ratio (O 2 /H 2 ) of approximately 1. 1 to produce an exhaust 
temperature of 2200°R. Flow range was 1. 0 Ib/sec to 10. 0 Ib/sec, Chamber pressure 
ranged from 100 to 500 psia. 

The general equation derived in the study presents the gas generator weight (WTqq) 

as a function of chamber pressure (P„) and flow rate (W). 

c 

= C + K (W) 


where 

C = 13.824204 - 0. 011178226 (P ) + 1.8632927 x lO"^ (P 

c c 


- 1.108423 X 10 "® (P^)^ 


and 


K = 7.9470262 - 0. 035636198 (P^) + 1.8632927 x 10“® (P^)^ 

- 3.7946 X 10~® (P^)® 

The equation is represented as being accurate over the range of mixture ratios of 
0.7 to 1.25. 
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MAOH MODEL FOR SUBROUTINE HEATEX 
PURPOSE OF SUBROUTINE 

The mathematical model for the heat exchanger subroutine is essentially a heat 
exchanger design model in that given certain input parameters which define the 
performance of the devices, the model will seek to generate an exchanger that fits 
the input parameters. The model provides a rapid and reasonably accurate means 
of determining the weight and hot fluid requirements of heat exchangers which use the 
combustion products of hydrogen and oxygen to condition the cryogenic hydrogen and 
oxygen working fluids . 

PROCEDURE AED MODEL 

The model eirployed is based upon AiResearch Report Wo. 71-7505-10, "Heat Exchanger 
Parametric Data, " dated August 31, 19T1- The data and procedures contained in this 
report were reformatted and modified, as required, to permit the construction of a 
model which could be programmed for a computer. The procedure employed is iterative 
in nature with respect to establishing the heat exchanger design point. The scaling 
parameters which produce the heat exchanger sub-unit, and unit, weights are said to 
reflect the AiResearch experience in realistic heat exchanger weights for specific 
des ign points . 


A general flow chart of the Heat Exchanger analysis procedure is given in 
Figure HEATEX-1, 


1. DEFINE SYSTEM IWTERFACE WITH HEAT EXCHAWGER 

The following parameters are defined prior to attempting to determine the weight 
of the heat exchanger: 


Cc/ Q 

cold 

fluid 

T in 

cold 

fluid 

c 



Pc, in 

cold 

fluid 

Tc , out 

cold 

fluid 


flow rate 
inlet temperature 

inlet pressure 

outlet temperature 
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FiaURE HEATEX-1 OUTLINE OF METHOD USED FOR DETERMINING 
WEIGHT OF HEAT EXCHANGERS. 
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P , out 
c 

ou H 

Tjj, in 

Pjj, in 
Tg, out 
out 
0F 


cold fluid outlet pressure (optional- can be calculated) 
hot fluid flow rate (optional - can be calculated) 

hot fluid inlet temperature 

hot fluid inlet pressure 

hot fluid outlet temperature 

hot fluid outlet pressure (optional - can be calculated) 

gas generator oxidizer to fuel ratio (optional - can be calculated) 


2. AIRESEAPCH (AB) DATA MODIFICATIONS 

(a) The AR Thermal Conductance Ratio (TCR) data curves are replaced by equa- 
tions which characterize the curves. 

(b) Heat exchanger volume calculations are not to be included in the model, 
as a means of subroutine size and complexity, 

(c) The AR-W/UA curves are replaced by equations which characterize each 
applicable set of curves. 


3. COMBUSTION PRODUCTS DATA; 

Input table of combustion products of hydrogen and oxygen, in the form of C 
versus temperature for a family of OF ratios . 


h. TO CALCULATE 0F RATIO : 

If ¥, is input but ^F is not, find ^F: 


¥ 


"h 


¥ 


h 




i^ = (Enthalpy)p - (Enthalpy)^ 

out ^in 


Enthalpy of "C" fluid is found from the tables of thermodynamic properties 

of the cold fluid, (Hydrogen or Oxygen, as applicable) , corresponding to the 

respective outlet and inlet pressures and temperatures. If P^. 

is not specified, let P„ 

u 


= p„ 


out 


out 


in 


C-168 



LMSC-A991396 


A K 


Z\ T. 


h 


Zi T = T - T 
h ^h. -^h ^ 

in out 


From table of combustion products of hydrogen and oxygen, find 0F corresponding 


to C^, and T, + T 

"cut "in 


5. TO CALCULATE W^: 


If 0F is input but W, is not, find W, : 

h ' h 


From Table of combustion products of hydrogen and oxygen, find Cp corresponding 
to 0F and ^h , + *^h. ^ 

• 1 .5 


out 


in 


^ i. 


W, 


T 

^h ^ 

A i 

w ) 


A i^ is found as in operation {h') above. 


6. SET VALUE OR LIMIT FOR T„ : 

in 

Check to assure that T < 3500°R. If not, set T. 


in 


H. 

in 


3500°R. 


7. SET VALUE OR LIMIT FOR T. 


H 


but 


Check to be sure that T. 

J 


H 2 " 30°K 

"out 


If P„ is specified, use P. . = 

tot H 


out 


but 


If P-T is not specified, use P. . = 0.6 P„ 

H . ’ tot H. 

out in 
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Find corresponding to from table of thermodynamic properaties of 

steam, for saturated vapor. 


Check for '*'30° • If so, go to operation 8. 


out 


sat 


If T . + 30 , either T inust be raised or P,,. must be raised. If 

out out out 

may be raised, set = T + 30 ° 

H , ’ H , sat . 

out out 


If may not be raised and P is specified, then P must be raised. From 

out out ^out 

the Steam Tables, find a value of P, , for which T_ = T + 30°. Call it P, 

tot H . sat totR. 

out 

Then the revised value of P„ must be, 

®out 


P ^ 

p = p_ 

outR ^out P . 

sat 


If T may not be raised and P was not specified, it now becomes specified, 
out p out 

as, Pg = 0.6 Pjj ( satp N 

outp in -p ’’ 

sat 


8. SET VALUE OR LIMIT FOR T OUT: 

c 


Check to assure that T^^ ^ l800°R. If not, set T^ = l800°R. 

out out 


9 . FIND SUM OF EFFECTIVENESSES: 




T - T + T - T 

H. H ^ C ^ C. 

in out out 1 ^ 

T - T 

H. C. 

in in 


If Tf < 0 .^, set T^ = T . + 30 ° and recheck re- 

out 
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11. IDENTIFY REVISED HEAT EXCHANGER REQUIREMENTS ; 

, as specified in operation 2 or modified in operation 9* 

Tp , as specified in operation 2 
in 

T_ , as specified in operation 2 or modified in Operation 9. 
out 

, as specified in operation 10 Cold Fluid Typa 
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¥ , if specified, or as found by operation 
H 

T„ , as specified in operation 2, or as modified in operation 6. 
•H.. 
in 

T , as specified, or as modified by operation 7 
®out 

Pg , as specified in Operation 2. 
in 

P„ , if specified, or as modified by operations 7 or 10. 

“out 

^F, if specified, or as found by operation 4. 


12. SUBDIVIDE HEAT EXCHANGER ACCORDING TO HEAT TRANSFER REGIONS: 


(Note that Super-critical and boiling regions will not coexist in one HX) 

it '^in . ^ " "in "oui 

tt: 


(a) Find ^ 


OUT} in 

‘H. - ^c" 

xn in 


C . 

min 


or ^ = 


C . 

min 


in 


‘out 

■f r 
r. ' 
in in 


H. 


C = (w c ) (3600) 1 

c pc ' 


Cjj = (W Cp)^ (3600) 


J 


C . = MIN (C , C^) 

c h 


\ min 


found from ^-^h- 


— 1 
C found from c 

Pc 

AT 


(b) If the cold fluid is hydrogen: 


(1) Is 200^P^ ^ 2000 

in 

Is 35 ^ < 90 

in 

Is T^ ^ 90 
out 


If all "yes", the HX has a supercritical 
subunit only. 
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(2) Is 200 ^ 



2000 

1 


in 



1 If all "yes", the HX has a super- 

Is 35 ^ 

T 

C 

< 

90 

' critical submit and a gas parallel' 


in 



j flow subunit only. 

Is ^ ^ < 0.91 



J 


(3) Is 200 ^ < 2000 


Is 

35 


< 90 

If all "yes , " the HX has a supercritical 




in 

> subunit, a gas parallel- flow subunit. 



> 


and a gas counter-flow subunit. 

Is 

T 

500 



out 



Is 

6 

< 

0.9 



(4) Is 10^P_ ^ 180 

^in 


Is 35 ^ T < T 

in ^sat 

Is T ^ T 

out sat 


y If all "yes" the HX has a boiling 
subunit only. 


I^nd Tq corresponding to P^ from table of thermodynamic proper- 
sat out 


ties of hydrogen, for saturated vapor. If P^, not input, use P_ . 

out ^in 


(5) Is lO^Pp ^ l 80 
in 

Is 35 5^ Tp < 

in ^sat 

Is ^ 500 

sat out 

Is £6 ^ .91 


If all "yes", the HX has a boiling 
subunit and a gas parallel- flow sub- 
unit only. 
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(6) Is 

10^ 

^0, s 

in 

2000 


Is 

35 $■ 

T < 

C. ^ 

in 

\at 

If all "yes", the HX has a boiling 
subunit, a gas aprallel-flow subunit, 
and a gas counter-flow subunit. 

Is 

T 

C . 

V 

o 

o 




out 


is^ 0.9 


(T) Is 10 ^ ^ 2000 

in 


Is P_ < 188.1, is 500 > T _ ^ T 

^ * c , c , 

in in sat 

Is P(^ ?■ 188.1, is 500 > Tp 90 

in ^in 

Is^^^0.91 


If all "yes", the HX 
has a gas parallel -flow- 
subunit only. 


/'A’\ 

V ^ / 


D 

"c 


in 



I 

I 

I 


Is 


188 . 1 , 

is 

500 P- T_ ^ 


If all "yes ", the HX 


in 



^in 

^Sat ; 

has a gas parallel- flow 
subunit and a gas counter- 
flow subunit only. 

Is 

Po > 

188 . 1 , 

is 

500 > T ;> 

90 > 


Is > 500 

out 

Is fr < 0.9 


(9) Is 10 ^ P^ ^ 2000 

in 

Is T„ 500 

in 

Is^< 0.9 


If all "yes", the HX has a gas counter- 
flow subunit only. 
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(lO) Is ^ ^ 0*9^ must be increased or must be decreased. 

out out 


(c) IF THE COLD FLUID IS OXYGEN: 


(l) Is 

o 

o 

CO 


'’0. ^ 

in 

2000 


Is 

160 

< 

T < 

C 

320 

If all "yes", the HX has a super 
critical subunit only. 




in 



Is 

T 

C 

4 - 

320 




out 


(2) 

Is 

800 ^ ^ 

in 

2000 


Is 

160 ^ T_ < 
^in 

320 


Is 

320 < T ^ 

^out 

500 


isJT<e ^ 0.91 


(3) 

Is 

800 < Pp ^ 

^in 

2000 


Is 

160 ^ < 

^in 

320 


Is 

Tq > 500 

out 



Is < 0.9 



Is 

10 Pp 

^in 

TOO 


Is 

160 ^ T < T 

in ^sat 


Is T^ ^ T^ 

out sat 


i 

I 

I 

I If all "yes," the HX has a super- 
i critical subunit and a gas parallel- 
I flow subtinit only, 
i 


If all "yes", the HX has a super- 
critical subunit, a gas jiarallel- 
flow subunit, and a gas counter- flow 
sub\init . 


If all "yes", the HX has a boiling 
subunit only. 
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Find Tp corresponding to P from table of thermodynamic properties 
sat out 


of oxygen, for saturated vapor. If P not input, use P^ . 

4 . 






out 

^in 

( 5 ) 

Is 10 ^ Pp ^ 
^in 

700 





Is 160 < Tp < 

T 

C 


If all "yes", the HX has a boiling 


in 

sat 


subunit and a gas parallel-flow sub- 





unit 

only. 


Is Tp < Tp 

500 





sat out 






Is S'? 0.91 





(6) 

Is 10 4 P 4 

700 

- 




^in 






Tb 1(^0 

- "C, 

in 

T 

^sat 


If all "yes", the HX has a boiling 
1 subunit, a gas parallel- flow subunit. 



and 8 

1 

1 gas counter-flow subunit. 


Is Tp > 500 



i 



out 



1 



Is6 < 0.9 


i 

! 

1 



(7) 

Is 10 ^ Pp 2000 

in 


— 



Is Pp < 731, is 

in 

0 

0 

V 

in 

i 

If all "yes", the HX has a 
gas parallel- flow subunit only 


Is Pp > 731 , is 500 > ^ 320 

^in ^in 

Is 320 < Tp ^ 500 

out 

Is % 0.91 
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Is 

10 4 

Pn 


2000 






^in 






Is 

'’c. < 

731 , 

is 

500 > 

T » 

T 

C 



in 




in 

sat 

If all "yes", the HX has a 








gas parallel- flow subunit 

Is 


731, 

is 

0 

0 

V 


320 

and a gas counter- flow subunit 


in 




in 


only. 

Is 


500 






out 







Is 

f < 0.9 





. 



(9) Is 10 ^ p_ 2000 

^in 

Is 500 

in 

Is ^ < 0.9 


If all "yes", the HX has a gas 
counter-flow subunit only 


( 10 ) 


lf€- >0.9, T„ must be increased or must be decreased, 

out ^out 


13 . DEFINITION OF DESIGN POINTS FOR INDIVIDUAL SUBUNITS; 

(actual values are derived from the data of operation 11 ) 

(a) Supercritical subunit; (low- temperature) 

The subscript "S" will refer to the supercritical subunit; the subscript 
"tot" will refer to the entire heat exchanger. 

(Tp ) = 

) = 
in „ 


(Tc ) 

^in 


tot 


(Th. ) 
in 


tot 
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If cold fluid is hydrogen: 


If (T^ ) > 90, set (T^ ) 

out , , out „ 

tot S 


= 90 


If (T(, ) ^ 90, (T^ ) 

out , , out _ 

tot S 


= (T. 


'out 


If cold fluid is oxygen: 


If (T^ ) > 320, set (T^ ) = 320 

tot S 


If 320, ^ 


out 


tot 


out „ out 

S tot 


) 

tot 


(Th ) = 
out o 


) 

out , , 

L.OG 


(Wg) 

^ s 

- 

c 

0 

II 


tot 


tot 


( A 1^)_ 




S “ tot 


(^C. ) - (I'c ) 

“ S 1“ tot 


{& i )_ found from tables of thermo 
c b 

properties of cold fluid, correspond- 
ing to 

(Pn ) 


ing to , (T^ ) (T^ ) and 

in in out g’ 


'C if specified. If (P_ ) 

out „ C . ^ 

S out 

not specified, set (Pg ) = Pg 

out g in 
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If pressvire drops are specified: 




(^Ph) 


tot 


= 0.5 (iP^) 




tot ~TI~±^ 


tot 


(b) Boiling subunit: (low temperature) 

The subscript "B" will refer to the boiling subunit; the subscript "tot" 
will refer to the entire heat exchanger: 


(T. ) 

^in 


B 


= (T. ) 

^in 


tot 


(T ) = (T ) 

^in B ^in 


tot 


If the cold fluid is hydrogen: 


If (Tp ) > T^ , set (T^ ) = 

oii'fc sat out g sat 


If (Tp ) = set (T^, _) = ) 


out . . ~sat 
tot 


out _ “out , , 
B tot 


If the cold fluid is oxygen: 


If (T^ ) > T^ , set (Tp ) = T^ 

out tot sat out _ ^seat 

s5 


If (T^ ) = ) „ (Tc ) 

out sat out j out 


C-179 



LMSC-A991396 


(T ) = (T ) 

B tot 


) = (Tjj ) 

B tot 


(W ) = (W ) 

^ B ^ tot 


(W ) = (¥ ) 

® B tot 






tot 


B . tot 


(Pc ) = (Pc. ) 

B tot 


(^i ) found from' tables of 
B 

thermo properties of cold fluid 


j corresponding to P , (T„ ) 

in in 

' (Pp ) if specified. If 


out 


B 


(Pout^ not specified, set (P^ ) 


^0. ■ 

Xj.A 


B 


out 


B 


If pressure drops are specified: 


(hP) = (^P) 

“ B H tot 


(A P^) = 0.5 (a P^) 


B 


tot 


(^^c) 


B 


(^ i ) 

^ c'^tot 


(c) Gas parallel-flow subunit: 


The subscript "GP" will refer to gas parallel subunit; the subscript 
"tot" will refer to the entire heat exchanger. 


in 


) 

GP 


in 


) 

tot 
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If no supercritical or boiling subunit exists, 


) = (Tq ) 

in in 


If a supercritical submit exists. 


(Tc^ ) = (T^ ) 

in i^p out g 


If a boiling subunit exists. 


(Tg ) = (Tg ) 

in gp out p 


^ = (T ) 

out ^ H , 

GP out 


tot 


If no gas counter-flow subunit exists. 


(Tj, ) , (Tg ) 

OP tot 


If a gas counter- flow subunit exists. 


(Tg ) = 500 

out gp 

(Wp) = (W ) 

GP ^ tot 


(Wp) = (W ) 

GP ^ tot 


= '"h. ) 

GP in 


(Ai^) 


GP 


^ ^ ^h^tot 


tot 


(4 i ) found frcm tables of thermo 
GP 

properties of cold fluid correspond 

■to (P^ ) , (Tg ) , (Tg ) , and 

in gp In Qp out ^p 

(Pp ) • If (Pp ) is not specified 


out 


GP 


out 


set (Pg ) = Pq 

out gp ^in. 
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If no supercritical or boiling subunit exists, 


(Pp ) = (Pp ) 

i-GP tot 


If a supercritical subunit exists. 


in S ^ 


If a boiling subunit exists. 


(Pj. ) = (Pc. ) - iPc 

m CP in g B 


If pressure drops are specified. 


(^Pp) 


rtP 


’’e) 


'^'gp 

GP tot 


(^1,) 


tot 


(d) Gas Counter-flow subunit: 


The subscript "CP" refers to the gas counter-flow subunit; the subscript 
"tot" refers to the entire heat exchanger. 


(Th. ) , (Tp. ) 


in 


CF 


in 


tot 


If no gas parallel- flow subunit exists. 


^ = (T ) 

CF °in 


tot 
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If a gas parallel-flow subunit exists, 


(Tp ) = (T^ ) 

CF GP 


CF out 


tot 


(T^ ) = (T(, ) 

out out 


(Wj = (W ) 

CF ^ tot 


(W„) 


CF 


(Wp) 


(Me) 


CF 


tot 


(.1,) 


tot 


'"’h, ) = ) 

CF tot 


If no Gas-Parallel flow Subunit, 
^^cin)cF " ^^cin)tot 


( A i^ ) is found from tables of thermo 
CF, 

properties of the cold fluid, corres- 
ponding to (Pp ) , (Tp ) , and 


in 


CF 


in 


CF 


(P|^ ) . If (Pp ) not specified, 

out out pp 

set (Pp ) = (Pp ) . 

CF CF 


If a Gas-Parallel flow subunit exists. 


(^c. ) = (^c, ) ■ 

CF GP 


A P 


GP 


If pressure drops are specified. 


(A P ) = ■ {a P ) 

® CF ® tot 


(>1P ) = (aP.) - (a P ) - (aP ) - (aP ) 

^ CF ^ tot GP S B 
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Note that if no gas-parallel subunit exists, 

(ap) = 0 
^ GP 

If no supercritical subunit exists, 

(4 P ) = 0 

s 

If no boiling subunit exists, 

(*P ) =0 

B 

14. IDENTIFY SUBUNITS REQUIRED IN THE HEAT EXCHANGER; 

(a) Note that, for either hydrogen or oxygen as the cold fluid, nine possible 
combinations of subunits exist for a heat exchanger, depending on the 
cold fluid inlet and outlet conditions. Operation 12 shows these condi- 
tions to be: 

(1) A supercritical subunit only. 

(2) A supercritical and a gas parallel subunit. 

(3) A supercritical, a gas parallel, and a gas counter-flow subunit. 

(4) A boiling subunit only. 

(5) A boiling subunit and a gas parallel subunit. 

(6) A boiling, a gas parallel, and a gas counter-flow subunit. 

(7) A gas -parallel subunit only. 

(8) A gas-parallel and a gas counter-flow subunit. 

(9) A gas counter-flow subunit only. 

(b) The following order of subunit design must be observed: 

(1) Supercritical or boiling subunit, if required. 

(2) Gas parallel subunit, if required. 

(3) Gas counter-flow subunit. 
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Each subianit must be fully designed before going on to the next 
subunit. 

(c) After all subunits have been designed, their weights, volumes, and 
pressure drops are combined to obtain overall heat exchanger characteris- 
tics. 

(d) Referring to operations 11 and 12, identify the subunits required. Place 
them in proper of analysis, per operation l4b, above. 

(e) Identify individual subunit requirements, using the values of operation 
11, and the design point definitions of operation 13 . 


15. DETERMINE TEMPERATURE - DEPENDENT LIMITATIONS: 


For supercritical, boiling, or gas parallel subunits, 

TCR_,_ = MAX ( ®in “ ®out ‘ ) 

‘ibOO - T_ ^ ^BOO - T„ 

^in ^out , 


If any terms are negative, set them equal to zero 


TOR = MIN , ®in" 
max ( 


®out - 550 


550 - T^ ^ 550 - T^ 

in out 


If any terms are negative, ignore them. 


For gas counter-flow subunits. 


T, 


H.. 


(TCR = MAX( 




out ~ 1800 

"iBoo - T„ 


out "in 

If any terms are negative, set them equal to zero 
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(ICE ) - mi. , Vn - 550 - 550 

max'^p { , 


550 - T, 


550 - 


out 


in 


If any terms are negative, ignore them. 


If TCR . > TCR , an impossible situation exists, and the design point 
min max ’ ^ 

must be changed. 


l6. DETEEyyUKE THE NUMBER OF HEAT TRANSFER UNITS: 


For supercritical or gas parallel subunits. 


NTU = 


- In (1 - 6 - 0^6 ) 

n^'c 

r 


For boiling subunits, 

•MTTTTT _ n .. ^ T £,\ 

iV J. U = - XU \± - c y 

For Gas counter-flow subunits, 

1 1 - € 

NTU=C-1 In 1-Ce 
r r 


Expressions for the terms above are as follows, using values for specific 
subunits as determined from operation 13 : 


6 


= MAX ( 


T T 

H, - H . 
in out 

T - T 
H, ^C. 

in in 


C = 
r 


C . 

min 

C 

max 


C . = MEN 

min 




C = MAX 
max 




T, 


T, 


'out 


C. 

in 


^ T - T 
H. C. 

in in 


) 
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C 

c 


C 


h 


3600 W 

C P 

c 

3600 k ^ 

h P, 
h 



A T 

G 

fLih 


IT- DETERMINE UA FOR EACH SUBUNIT: 


UA = (NTU) (Cjjin) 


18. DETERMINE CORRECTION FACTOR FOR ( 0 F) OTHER THAN 1.0 ; 

If the (^F) identified in operation 11 does not have the value 1 . 0 , correc- 
tion factors must he calculated and applied to the values obtained from 
the data curves which were input in operation 1. 


(a) Correction for hot fluid pressure drop; 


{A1 ) 

' P 'h. 


(‘-I). ( 


^ "o '^.0 


), where 


(££) =( 


) = actual normalized pressure drop corresponding 


in 


to ]6 f = X 


M^ = hot fluid molecular weight at ^F = X 
M^ Q = hot fluid molecular weight at 0 F = 1.0 

^.0 = 

M^ = 2.016 () 5 F^) + 2.0 
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(b) Correction for thermal conductance ratio (TCR): 
TCR, = TCR- ( ) 

TCR^ = Actual TCR corresponding to = X 


TCRq = TCR obtained from the curves 

/Pr 

CK ^ ' corresponding to = X 


^h 


19. DESIGN PROCEDURES FOR SUPERCRITICAL SUBUNIT: 


Applicable only if a supercritical subunit exists in the heat exchanger, 
as determined by operation 12 . If so, the supercritical subunit design 
point is taken from operation 13a. 


/ \ w 

(a) From specified pressure drops, find : 


(1) ^ P = AV 
"^1 ^S 


350 


It;: r 

out S 


if cold fluid is hydrogen 


A P„ = AVr 




500 


C . ) 
out , 


if cold fluid is oxygen 


Subscript "l” denotes the value of P^ to be used in entering the 
data curves. Subscript "S" applies to the specified value for 
the supercritical subunit. 


( 2 ) Find ) 




^ , and ) 


in - 


S 

in 


(3) Using (Pp ^ ^ ^ ^ ^ (^ ) as 

in s in g C^ 


AT 




inputs, enter the appropriate gaseous curves of operation 1 
to determine the evalue of W/UA as outlined in the steps which 


follow. 
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(4) If interpolation between values in the tables is necessary, 
interpolate linearly to find W/UA: 


If TCR 10., set TCR = 10, 


W = (— ) )hUA¥- ( ^ \ ^ ( 

'^UA ^ ^ ^ 1 + TCR ^ ^ 


TCR 


max 


max 


TCR 


( 5 ) If interpolation between values of ( )„ or ), is outside 

P C P h 


the range of values for which curves exist, extrapolate log-log. 


Find W for the supercritical subunit: 


M - ) (UA) 


( ^ ) is obtained from (a), above 


UA 


(UA) is obtained from operation IT. 


Find A Pfi J 


A Pp = value of P_ found in operation 13 


Find A P„ : 


A Pjj = Value of P^ found in operation I3. 


S 




Now go to the design of the gas parallel subunit, if one exists. 



LMSC-A991396 


20. DESIGN PROCEDURE FOR BOILING SUBUNITS ; 

(a) Use data only from the boiling curves. 

(b) Using specified pressure drops, find 


(AP ) 

^ P , 


A Pc 


B 


( - ) 
V p ) 




C. 


(c) Using , P^ , 

inu iog 
TOR relationship; 


( 


A P 


P 


AP, 






'h. 




), , find TCR^ from the applicable 

hg 5 


(l) For extrapolation of TCR from the values of (— p and (— ^ for 

which the ICR relation is expressed, proceed as follows: 


(a) Find the value of TCR corresponding to (P^ ) and (P ) , from 

0 • il • 


the TCR relation. 


in 


B 


in 


B 


(b) First extrapolate with respect to (— ^) 


TCR. 


TCR, 


(— ) 
Pi. 
h. 


(— ) 
^ P/ 




.232 


n 


where 


(— ) 

^ P ''h. 


hot fluid pressure drop value for the TCR relation 
from which the extrapolation is made. 


/AP \ 

(— p = the hot fluid pressure drop to which the extrapolation 

is made 


TCR 


P = TCR value from which the extrapolation is made. 


TCR^ = Intermediate TCR value in the double extrapolation. 
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(c) Next, extrapolate with respect to ) : 

Jr L/ 


TCR^ = TCR^ 

6 5 


(— ) 

'' P ’c. 


.364 


B 


) 

C 


0 


, where 


/AP \ 

(—5 )„ = the co.ld fluid pressure drop to which the extrapolation 

IS made. 


A P 

(—p)^ = The cold fluid pressure drop value for the TCR relation 

o 

from which the extrapolation is made. 


TCR^ = intermediate TCR^ value in the double extrapolation, 
from (ii), above 

TCRg = the value of TCR corresponding to (^) and ), 

Cb ^ 

(d) If the specified values of (-:5 )_ and ) result in a value 

of TCR^ which is less than TCR . or greater than TCR -(from 
D min max 

operation 15 )j proceed as follows: 

(1) Input which pressure drop is most limited by system considera- 
tions . 

(2) Identify a new TCR, designated TCR^ 

(3) If hP_ is most limited, set TCIU = TCR . 

Cg 7 nan 


Hold ) at its specified value, and solve for a new 


P 'C. 


B 


value of ( A P ) which corresponds to TCR, 




T: 


= (‘-I 


TCR, 


1 TCR-^J 


4.31 


, where 
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p 

extrapolated value of ( — ^ 
required for TCR^ 


(— ) 


= hot fluid pressure drop value for the TCR relation- 
from which the extrapolation is made. 


TCR^ = TCR value from which the extrapolation is made. 


Solve for P, 


h 


= P, 


out. 


h 


B 




(^) ^ 
P h 



) 

B 


If P, < 0.6 P^ , or if 

h . ^ h. ’ 

outB in^ 

P, < P, determine by operation 1 , whichever is the 
out„ ^out„ 

D n 

larger, then set P, equal to the larger of the two and 

h . “ 

outp 

find ) from 

3 


(— ) 

^ P ^h. 


’h. 




MAX (0.6 ^h. , ^h ^ ) 

in^’ outj^^ 


h. 

in. 


B 


^ P 

Then find a new value of as follows 


(^) = (^) 
% 


TCR^ 


TCR, 


8 J 


B 

2. 75 


TCRg = TCR^ 


(— ) 

^ P ^h^ 

( — ) 


.232 
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(4) IfAP, is most limited, set TCR = TCR . Hold ), at 
iig 7 max P 


its specified value, and find the value of TCR in the 
which corresponds to TCR^: 


)c - (^) 




TCR^ 


TCR 


2.75 


1 - 


(— ) 

P ’c. 


B, 


extrapolated value of. ) 

^ C 


required for TCR, 


7 


(^) 

C 


cold fluid pressure drop value for the TCR rela- 
tion from which the extrapolation is made. 


TCR, 


^ = TCR -value from which the extrapolation is made. 


<dP 

If the value of <2P corresponding to (— ) exceeds the 


value 0.1 (P ) ^ 

^in g 


'B 


^ ^c 


tot J 


/APv ) 

■value and calculate ( — ) =0.1 B ' 


, then set^P^ equal to this 


B,. 




'tot 


//iP \ 

Then find (— =r ), : 
P h, 


(— ) 

^ P^h, 


(— ) 
V p ^ 


TCRr 




4.31 
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/ \ W 

(e) Find ^ for the boiling subunit: 

W ¥ 

Enter the appropriate boiling curves of ^ to obtain a value of ^ 
using (P_ ) , (P ) , and one of the following sets of pressure 

^ • r\ n . 

in B B 

drop factors: 

(1) (“b)^ (~B )-u > from operation 20b. 

(2) )_ and (^-1 ), , or ( ^ ) and ) , whichever set 

B 2 3 

®2 

is applicable, from operation 20d ( 3 ). 

( 3 ) and (i| )^, or 
®3 

^ A P ^ , /^'P N ■... .. - .. 

V— = i ana v~b -'v, > wnicnever sex is appiicaoie, from operation 


20(d) (4). 


(ij-) If interpolation between P values in the tables is necessary, 

^ ¥ 

interpolate linearly to find ^ . 

/ \ /^P\ /^P\ 

(5) If interpolation between values of or is necessary, 

interpolate log- log. 

(6) If the value of (~ or is outside the range of values 

for which curves exist, extrapolate log-log. 

(f) Find ¥ for the boiling subunit: 

¥ = (UA) 

(^) is obtained from (e), above 

(UA) is obtained from operation IT. 

C-194 



LMSC-A991396 


(g) Find A P 




A P. 


B 


(— ) (p ) 

^ P^_ , where 

0 in g’ 


) 

c 


= Either ( ^ ) from operation 20 b, 


P 'C. 


B 


A P 

or (— 5 from operation 20d(3), 


P 'C. 


B. 


aP 


or ( from operation 20d (4), 


B, 


(h) Find AP 


//Ps 

or (-p)(^ from operation 20d(4) 


P'C. 


B,. 


APhg 


) > where 


P ^h '"h 


in 


B 


/AP\ /AP > 

K—p) = either } from operation 20b, 




or (^)n from operation 20d(3), 


P'h, 


A P 

or (— p ) from operation 20d(3), 

3 

or (— p ) from operation 20d (4), 

r ilt. 


(i) Now go to the design of the gas parallel subunit, if one exists, 
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21 . 


DESIGN OF GAS PARALLEL SUBUNITS ; 

(a) Follow precisely the same procedures as were followed in operation 20, 
except as follows: 


(1) Take all c\irve data from the gaseous curves instead of the boiling 
curves . 

( 2 ) Change all subscripts "B" to "GP". 


. P 

( 3 ) If the value ofAP corresponding to , from operation 20d(4), 


exceeds the value 0.2 (P_ ) 


) 


S ^c ^tot 


GP, 


GP or 0.2 (P_ ) 


in 


B 


) 


GP 




, depending on whether a supercritical or a boiling 


v.» 


subunit precedes the gas parallel subunit, or 0.2 (P^ ) 

in Qp 

(hi) 

c GP if nothing precedes the gas parallel subunit . If 4 P 
exceeds one of the se values, set it equal to the applicable value 


and calculate as follows: 


(— ) 

^ P ^ 


0.2 


^GP,. 


( ) 

— ■ S 

( ^C. ) 

in 


GP 


) 


GP 


^^^c ^tot 


or 


(— ) 

^ P ^C 


GP,. 


(— ) 

'' P 


= 0.2 


= 0.2 


( ^C. ) 

in 

( '^C. ) 

in 


B 


GP J 


/ Ai \ 

( c ) 


GP 


) 


or 


GP,, 


(a i„) 


GP 


"(a 1j,T 

tot 


to-g 

L as applicable. 
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(b) Now go to the design of the gas counter-flow subunit, if one 
exists . 


22, DESIGN OF GAS COUNTER-FLOW SUBUNITS : 

(a) Follow precisely the same procedures as were followed in operation 
20 , except as follows: 


(1) Take all curve data from the gaseous curves, instead of the 
boiling curves. 

( 2 ) Change all subscripts from "B" to "CF" 

(3) Does the value of A P corresponding to (-^ ) , from 

CF 3 

operation 20d(k), exceed the value of 0,2 (P_ ) - (.j P ) _ /a 

C. c „ 

in g S 

” > where © = S, B, GP, or CR = identity of the first 

subunit in the heat exchanger? If so, setAP equal to this 

•5k P ^ 

value, and calculate ( ) 


0,2 (P ) - (a P ) - ( aP ) - (.^P ) 


(— ) 
^ P 


in 


© 


GP 


B 


CF, 


<^o. ) 

in , 


CF 


(b) Now go to the calculation of the overall heat exchanger character- 
istics. 


23 . CALCULATION OF OVERALL HEAT EKCHANGER CHARACTERISTICS: 


(a) Overall heat exchanger weight: 

m 


W 


tot 



lbs, where 


Wj = each individual subunit weight, from operations I 9 , 
20, 21, and 22 
m = number of subunits 
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NOTE: If W. . < 5 lbs, set W . . = 5 

•fcot tot 


(b) Overall heat exchanger pressure drop; 


AP = max (AP^) 
tot J 


P = p - A p 
^out in tot 


tot 


m 


J= 1 


(ap ) 

C . 


out in ^tot 


lbs. 
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MATH mode:, for SUBROUTINE HEXELC 
PURPOSE OF SUBROUTINE 


The subroutine computes the weight and pressure drop values for an electric- 
ally heated heat exchanger. The subroutine essentially designs the exchanger 
unit based upon two preset design configurations established by the Airesearch 
Mfg, Co. in the course of a NASA funded study (Ref. 1.9-T), The subroutine 
incorporates data permitting the application of the heat exchanger to the use 
of providing thermal energy for three gaseous fluids; oxygen, hydrogen and 
nitrogen. The subroutine then has direct application to both Fuel Cell and 
Life Support Systems. 

HEAT EXCHANGER DESIGN CONSIDERATIONS 

The heat exchanger type considered here is an electrical resistance heater 
driven unit. The configuration, as illustrated in Figure HEXELC-1, employes 
a cylindrical annular cryogen flow passage with the heater element attached 
to the outer cylindrical shell. 

The heater element is Ni-Fe alloy, which was chosen because of the direct 
proportionality between resistance rise and temperature rise provided by this 
material. This characteristic acts to reduce power dissipation as heater 
temperature rises. This feature, coupled with extended external surfaces to 
enhance radiative heat rejection, allows heater temperature to be limited to 
1000°R even under conditions of zero cryogen flow. Danger of heater burnout 
is thus virtually absent. 

Heat transfer from the heated outer shell to the cryogen is improved by use 
of a rectangular offset fin within the annular flow passage. This fin, a 
l6-per-in., 0.006-in. thickness aluminum configuration, fixes the annulus 
radial thickness at 0.10 in. 

The concept adopted for the oxygen heater unit differs from that of the hydro- 
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BASIC HEATER UNIT CONFIGURATION 



RECTANGULAR 
FLOW FIN 


RADIATION 

SURFACE 


TRIANGULAR COPPER 
STANDOFF FIN 



SINGLE ANNULUS DESIGN DOUBLE ANNULUS DESIGN FOR 

FOR HYDROGEN AND NITROGEN ISOLATION OF HEATER ELEMENT 

FROM OXYGEN STREAM 

S-67096 


FIGURE HEXELC-1 ELECTRICAL HEAT EXCHANGER CONFIGURATION 
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gen and nitrogen units in that an additional cylindrical shell is located 
between the outer surface, to which the resistance element is brazed, and 
the oxygen flow passage. The barrier space thus formed is evacuated; the 
outer wall of the flow passage and the outer shell are thermally connected 
by a 0.05- in. -high triangular copper fin surface. This standoff construction 
prevents a single failure (of either the surface to which the heater is at- 
tached or the flow passage wall) from cuasing the heating element to be ex- 
posed to oxygen. 

The procedure for design of electrical heater units is essentially closed- 
form, having a single degree of geometric freedom. It is necessary to select 
the outside diameter of the flow passage. For each diameter chosen, a heater 
design is defined. However, experimentation with this dimension may be need- 
ed in order to choose the most beneficial value for a particular application. 

HEATING ELEMENT CONSIDERATIONS 

For this application, it is desirable to have a resistance element capable 
of providing a large heat flux per unit wall area and having a resistivity 
characteristic that rises rapidly with temperature. This last requirement 
causes power dissipation to be decreased as heater temperature rises, a 
valuable trait with respect to safety of operation and radiator surface re- 
quirements. The 5 . 2U-percent, nickel-iron alloy chosen for use in the heat- 
er provides a 63 -percent decrease in power dissipation as temperature rises 
from 360°R to 1000°R, compared with the 2T-percent decrease to be expected 
with Nichrome over the interval. 


The relationship of temperature to resistivity ratio is given by the expres- 
sion: ^ 


R 1 


T 

^360 1 


360 


where R is the resistivity at the variable temperature and ^^60 ' 

sistivity at a 360 °R reference condition. 
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SUBPROGRAMS AND SYMBOLS REFERENCED IN MATH MODEL 

Subroutines, functions and data Look-up table numbers are referenced with 
the using equations and procedures contained in this math model. The aster- 
isk (*) implies multiplication and the parenthesis ( ) serve to group a set 
of mathematical manipulations . 

PROCEDURE AND MODEL 


1. INPUT VALUES REQUIRED; 


NGAS 


TIN 

T0UT 

PIN 

HF 

LDIA 

WD0T 

RH0GAS 

IFIN 


- Fluid Gas Identity; 1 = Oxygen 

2 = Hydrogen 

3 = Nitrogen 

- Gas Inlet Temperature (°R) 

- Gas Outlet Temperature (°R) 

- Inlet Gas Pressure (Psia) 

- Heater Heat Flux Rating - (BTU/Hr - Sq. In, @ 360®R) 

- Exchanger Inlet Line Diameter (in.) 

- Gaseous Fluid Flow Rate (Lbs/hr) 

- Gaseous Fluid Density (Lb/cu,ft.) 

- Anti-Burnout Fin Index; 0 = No fins 

1 = With fins 


2. CONSTANTS REQUIRED IN MODEL; 


PI 

- 3.141593 



TREF 

- 360.0 

(“R) 


PCI 

- 736.9 (psia) 

Critical Pressure - 

Oxygen 

PC2 

- 187 .5 ( ps ia ) 

Critical Pressure - 

Hydrogen 

PC3 

- 492.2 (psia) 

Critical Pressure - 

Nitrogen 
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3. CALCULATE THE MASS VELOCITY: (MASVEL) 

MASVEL = WD0T/(PI * DH) 

4. CALCULATE THE OVERALL HEAT TRANSFER COEFFICIENT: (U0A) 


For this step, the data presented in Figures HEXELC-2 and -3 have been 
converted into Data Tables for data look-up: 

Table 20 was derived from Fig, HEXELC-2 
Table 21 was derived from Fig, HEXELC-3 

For Hydrogen: 

UC5a = f (PIN, MASVEL) Table 20 

For Oxygen and Nitrogen: 

U(Z5a = f (PIN, MASVEL) Table 21 

5. CALCULATE THE HEAT EXCHANGER LENGTH: 


The basic equation for heat exchanger length as given in Ref. 1.9-7 is 
as follows: 


Let: 


Then: 


L “ (wcA D) * Cp * 


T?- , , ln(T, A,) 

2B /ttD ^ U 


2B /rfD 


(k „ ln(^ /Ta) 

T*- U 


L - (w^/tt D) * Cp * ( (|), + ^ (j)z) 


Where: L = HLNGTH 

’^c = WD0T 


Heater Length 
Cryogen Gas Flow Rate 
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MASS VllOCUY,^, LB PER HR-SQ IN. 

7T D 


FIGURE HEXELC-2 HYDROGEN EIECTRICAL HEATER HEAT TRANSFER PERFORMANCE 
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FIGURE HEXELC-3 OXYGEN AND NITROGEN ELECTRICAL HEATER HEAT TRANSFER 

PERFORMANCE 


LMSC-A991396 


LMSC-A991396 


D = DH 

'C = CPBAR 
P 

T2 = TIN 

= T0UT 
/S = BETA 

B^ = B0NE 

U = U0A 

0^ = PHI0NE 

02 = PHITW0 


Further: 


= Exchanger Outer Annulus Diameter 

Mean Spec. Heat, of Cryogen Gas 

Gas Inlet Temp 

- Gas Outlet Temp 

Correction Factor for 0^ 

Heater Power Per Unit Area 

Overall Thermal Conductance of Heat 
Exchanger Surface 

As Defined Above 

As Defined Above 


B, = TT * D * B 
1 o 


Where: 


B 

o 


H 

A / REF 


HF * TREF 


q 

T 



or HF, in the manufacturers heater energy rating 
at a reference temperature 


Since: 

MASVEL = 

TT D 


The model and subroutine equation becomes; 


HLNGTH = MASVEL * CPBAR * (PHI0NE + BETA * PHITW0) 
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from Figure HEXELC-U, which has been convert- 
Table in the Data Tables, 

Table 44 

and is the critical pressure of the same 

6 . CALCULATE THE HEAT EXCHANGER WEIGHT: 

The heat exchanger weight versus diameter and length curves presented in 
the reference study (Ref. 1 . 9 - 7 ) have been reduced to equation form as 
follows : 


Values for EETA are derived 
ed to table look-up data as 

BETA = f I 

where P is the gas pressure 


For Oxygen Heat Exchangers: 

HEXWGT = 0.1519984 * DH ^-° 53 T 9 * HLNGTH 

For Hydrogen and Nitrogen Heat Exchangers : 

HEXWGT = 0,0950445 * DH * HLNGTH 

7, CALCULATE THE ANTI-BURNOUT FIN WEIGHT: 

The fin weight versus heater diameter graphic data presented in the ref- 
erenced study has been reduced to equation form as follows: 

If fins are required - then: 

FINWGT = 0.2068721 * DH 3-19204 ^ HLNGTH 
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FIGURE HEXELC-4 PRESSURE CORRECTION FACTOR FOR HEATER LENGTH EQUATION 
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8. CALCULATE TOTAL HEAT EXCHANGER WEIGHT: 

HEXWGT = HEXWGT + FINWGT 

9. CALCULATE THE HEAT EXCHANGER PRESSURE DROP FOR THE FLUID GAS 
CONSIDERED: 

The heat exchanger pressure loss characteristics as a function of fluid 
mass velocity is presented in Figure HEXELC-5, This data has also been 
converted to a look-up Table for use by the subroutine. 

cr^ P = STGDLP = f (mASVEL, HLNGTH) 

from Table - 45 

Then: 


DELTAP = SIGDLP/ (RH0GAS/O.OT65) 
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FIGURE HEXELC-5 ELECTRICAL HEATER PRESSURE LOSS CHARACTERISTICS 
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MATH MODEL FOR SUBROUTINE PARPMP 
PURPOSE OF SUBROUTINE 


To provide for the calculation of pump parameters required in support of other sxib- 
programs needing such computed parameters. The subroutine in essence designs 
a pump to fit the input values, and, where necessary, will revise certain of the input 
values to meet built-in design constraints. 

The subroutine requires as input the following: 

Type of Fluid: Oxygen (as liquid) 

Hydrogen (as liquid) 

Design Option: Minimum Power Design 

Minimum Weight Design 

Required Ihimp Pressure Rise 

Required Delivered Flow Rate 

Net Positive Suction Pressure Available 

Fluid Density (as liquid) 

The subroutine is to output the following variables: 

Fhimp Efficiency 

Pump Power 

Pump Weight 

Pump Speed 

Number of Pump Stages 

Computed NPSP Required by Pump 

The math model employed is based upon an AiResearch Manufacturing Company study 
performed under subcontract for LMSC (Ref. 1-9-6). 

MATH MODEL SYMBOLS AND SOURCE INFORMATION 

Symbols and source information used in the math model are presented in the following 
subparagraphs along with the pertinent mathematical procedures and equations. Note 
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that the asterisk ( * ) is used to denote multiplication and parenthesis ( ) serve to 
group a set of mathematical manipulations. 

PROCEDURES AND EQUATIONS 

1. Variable Definitions 


Symbol 

Description 

Dimensions 

D 

Pump Diameter 

in. 

d 

Impeller Diameter 

in. 

E 

Power Requirement 

horsepower 

^c 

Gravitational Constant 

32.17 ft-lbm/lbf-sec^ 

H 

Head Rise Per Stage 

ft-lbf/lbm 

L 

Pump Length 

in. 

N 

Rotational Speed 

rpm 

n 

Number of Stages 

~ 

NPSH 

Net Positive Pressure Head 

ft-lbf/lbm 

NPSP 

Net Positive Suction Pressure 

psi 

Ns 

Specific Speed 

rpm (gpm)®’ ^/(ft-lbf/lbm) 

P 

Scroll Pressure 

psi 

Q 

Volumetric Flow Rate 

gpm 

S 

Suction Specific Speed 

rpm (gpm)^’ V(ft-lbf/lbm) 

u 

Impeller Tip Speed 

ft/ sec 

V 

Pump Volume 

cu in. 

w 

Weight 

lb 

ap 

Total Pressure Rise in Pump 
Module 

psi 

V 

Pump Hydraulic Efficiency 

— 


Efficiency Quotient 

— 

% 

Adiabatic Efficiency 

— 


Fluid Viscosity 

Ibm/sec-ft 

IT 

Pi 

3. 14159 
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Symbol Description Dimensions 

Fluid Density Ibm/cu ft 

Flow Coefficient — 

Head Coefficient — 

Flow Rate Ibm/sec 

2. Equations for Pump Math Model 

The equations which essentially design a pump are presented in order of utilization. 

2. 1 Design Point Input Requirements 

Type of Fluid , H 2 or O 2 
Flow Rate ( ) , Ib/sec 
Required Pressure Rise (AP) , psi 
Fluid Density (p), Ib/ft^ 

Net Position Suction Pressure Available (NPSP), psi 

2.2 Source Information Required 

Data presented in the AiResearch curves (Figs. 3-1 through 3-5) is to be reduced to 
equation form (mean values) for use in the model. Curves are appended at end of 
model. 

2.3 Calculate Nmax : 


(a) If (NPSP) > 0, 


= <®> 5) \ 


-0.5 /144 [NPSP] 
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/2 


rptn( gpm) 


1/2 


j3/4 


(ft-lbf per Ibm) 


374 
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5-58205 


f^igure 3-1. Pump Efficiency and Head Coefficient, at a Reynolds Number of 10^ 
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IMPELLER DIAMETER, IN- 


Figure 3-2. Effect of Impeller Size on Efficiency 
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IMPELLER DIAMETER (INCHES) 


S-66697 


Figure 3-3. 


Baseline Pump Weights 
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Figure 3-4. Normalized Head Coefficient vs Normalized Flow Coefficient for 
Off-Design Pump Performance 
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Figure 3-5. Normalized Efficiency vs N 
Pump Performance 
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where 

S = 300 , 000 for hydrogen 
S = 50,000 for oxygen 

If > 100,000, set = 100,000 

(b) If (NPSP)^ = 0, set = 100,000 

2.4 Set Up Iteration for Computation of Number of Fhimp Stages ( n ) 

Let n = 1,2, 3, 4, 5 in that order, with 5 as the maximum number of stages. The 
iteration loop will encompass calculations 2.4 through 2.23 which follow. 

2.5 Calculate Head Rise Per Stage 

144 AP 


2.6 Calculate Specific Speed (Ns) 



n 2*=^ 

0.508 N (p) 


(AP) 


0.5 

Os 


N = unknown 


2.7 Find Head Coefficient ( 0 ) 

=</»., (N ) , from Fig. 3-1 
X s 

2.8 Find Adiabatic Efficiency (rj^) 
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2,9 Find Impeller Tip Speed (u) 


/32.2H\®-^ 

■ 32. 2H' 

' (// / 

L*2 <«s)J 


2. 10 Find Impeller Diameter (d) 


N = unknown 


229u 

N 


229 

N 


32. 2H 
(*2 


2.11 Find Efficiency Quotient ( 77 / 770 ) 


(ti/Vq) = 01 ( d ) 


From Fig. 3-2 




229 

’ 32. 2H 

0.5 

N 

• 




2, 12 Find Pump Hydraulic Efficiency ( 7 ?) 


rj 


WAo) % 



32 . 2H 


2.13 Find Values of Ns, N, and r} 


Maximize 77 as a function of N 
' s 

T] =71 

' 'max 

N = value of N which provides r] 
s s niaX 

N = value required to provide V 
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2. 14 Is the value of N acceptable ? 

If N ^ go to operation 2. 15. 

If N > N , set N = N , and recalculate operations 2.6 through 2. 12; 

m&X HlaX 

then ship operation 2. 13 and go to operation 2.15. 

2.15 Calculate Pump Total Efficiency ( t) 


2. 16 


2. 17 


= iri) 


il + 0.05 


n-1 


' n / 

( 77 ) is found by operation 2.12, unless modified by operation 2 . 14. 

Identify Type of Pump 

If N_ < 375, pump is type B. 
s 

If 375 < N < 5000, pump is type C. 
s 

If N < 5000, pump is type A. 
s 

Calculate Pump Diameter (D) 

If pump is type A or type C , 


D = 1.7 (d) 


If pump is type B , 


D = 1.4 (d) 
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2.18 


2.19 


Calculate Pump Length (L) 
If pump is type A or type C : 


If n = 1: 

L = 2.5 (d) 

L = 2.25 (d) 
L = 2.0 (d) 

If n = 2: 


For d <1.5, 

For 1.5 < d < 2.0, 
For d > 2.0, 


L = 3.5 (d) 

L = 3.25 (d) 
L = 2.75 (d) 

If n > 3: 


For d < 1.5, 

For 1.5 < d < 2.0, 
For d > 2.0, 


For d < 1.5, L 

For 1. 5 < d <2.0, L 
For d > 2 . 0 , L 


= 3.5 (d) +0.5 (d) (n-2) 

= 3.25 (d) +0.5 (d) (n-2) 
= 2.75 (d) +0.5 (d) (n-2) 


If pump is type B: 

If n = 1, L = 2.0 (d) 

If n = 2, L = 3.0 (d) 

If n > 3, L = 3.0 (d) + 0.5 (d) (n-2) 

Calculate F>ump Weight (Wt) 


W. = W. + W, + W 
tins 
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2.20 


If pump is type A or type C , 


W. =0.1 


"*•>(€) 


W, = 0.55 W,(n) 


0.33 


0.25 


W. =0.35W,(i)- (X) 


Wjj is found from Fig. 3-3, vs (d) 

= 3.0 for hydrogen 
Wj^ = 50.0 for oxygen 


P = NPSP + AP 


Pjj = 1000 


If pump is type B , 


W. = 0.05 nW. 

1 b 


W, =0.35W, (n) 


0.33 




Calculate Pump Volume (V) 


V = 0.25 7T D L 
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2.21 Calculate Pump Power (E) 


W H n 
550 J7j 


2.22 Calculate Net Positive Suction Pressure Required (NPSP)r 


(NPSP)jj 


P^N)1-33^q^0 .66 


144 (S) 


1.33 


Ignore (NPSP)j^ for cases where (NPSP)^ = 0. 

For cases where (NPSP)^ >0, if (NPSP)j^ > (NPSP)^, set 
(NPSP)j^ = (NPSP)^ and solve above equation for N . Then recalculate 
operations 2.6 through 2. 12 and 2. 14 through 2.21. 

2.23 Select Number of Stages in Pump (n) 

(a) Discard any values of n for which u > 1700. 


(b) Input which is of greater importance , W^, , V , or E . 

(c) Select pump configuration and performance corresponding to the value 
of n which provides minimum W^., V, or E, as selected in b above. 

2.24 Off -Design Pump Performance 

(a) This calculation may be used to determine off -design performance for 
any pump whose design point and physical configuration were determined 
by operations 2 . 1 through 2.23. 

(b) Input AiResearch curves. Figs. 2-53, 2-54, and 2-55. 
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Figure 2-53. Off-Design Performance of Pumps Operating at a Design 
Specific Speed of 400 rpm 
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Figure 2-54. Off-Design Performance of Pumps Operating at a Design 
Specific Speed of 1000 rpm 
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(c) Input values of N and input two of the three parameters which follow; 

O 


w 


X 


AP 


N 



Subscript X denotes off -design condition. 
Absence of subscript X denotes design condition, 

(d) Calculate percent of design conditions: 


Percent design flow rate 



percent W 


Percent design pressure 
rise 


100 



= percent aP 


Percent design rotational 
speed 



percent N 


(e) Using N and the two available off -design parameters , interpolate 

s 

between curves on Figs. 2-53, 2-54, and 2-55 as necessary to accommodate 
N , and find the value of the third off -design parameter and the off- 

D 

design percent efficiency. (Interpolate linearly between N values and 

s 

between N values). 

(f) Check for acceptability of off-design operation at the point specified: 
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(1) If (NPSP)* = 0; 



= {% W) (W/100) 
= (% N) (N/lOO) 


If not, the pump cannot be operated at the off -design point 
specified. 


(2) If (NPSP). > 0: 
X 


(a) Find (NPSPU : 


(NPSP)r^ = (NPSP)jj 



(b) If (NPSP)j^ > (NPSP)^ 


W N„ 

Is < 1.0 


W 


N - 


If not, the pump cannot be operated at the off -design point 
specified. 


(c) If (NPSP)r^ < (NPSP)Ax •' 

Operation at the specified off -design point is permitted. 


(3) If operation at the specified off -design point is acceptable, 
go to operation 24g. 
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(g) Calculation of off -design pump parameters: 

(1) If percent AP was not an input for the off -design point, find 

APx = (% AP) 

(2) Find Tltx : 



(3) Find pump power: 


Wj^(144APx) 

"" 550 p T1 


2.25 AiRe search Supplied Data 

The AiResearch data supplied as curves in Ref 1.9-6, are presented in the following 
pages . For use in the program , this data was reduced to equation form through the 
use of curve fitting routines. 
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MATH MODEL FOR SUBROUTIIffi TC0ND 
PURPOSE OF SUBROUTINE 


To provide an integrated subprogram package which can compute the heat 
leak flux per unit cover for a variety of cryogenic insulation materials 
over the ranges of cryogen fluid and space-vehicle -ambient temperatures of 
interest in cryogenic systems analysis. Specifically, the subroutine is 
to encompass the following insulation materials: 


DOUBLE ALUMINIZED MYLAR - SILK NET 

DOUBLE GOLDIZED MYLAR - SILK NET 

DOUBLE ALUMINIZED MYLAF - TISSUE 'LASS 

CRINKLED- DOUBLE ALUMINIZED MYLAR - TISSUE GLASS 

NRC-2 CRINKLED SINGLE ALUMININZED MYLAR 

SUPERFLOC 

MICROSPHERES 

POLYURETHANE FOAM 

FIBERGLASS BATTING - HELIUM PURGED 

SYMBOLS REFERENCED IN MATH MODEL 


N 


T, 


M 


H 


N 


Effective Thermal Conducitivity (BTu/Hr. -Ft^®R) 

Number of Radiation Shields Per Inch thickness of Insulation 
(layered material) 

Mean Temperature ( °R) 

Steten-Boltzman Constant (O. 1713*10”^ BTU/Hr-Ft^-°R^) 

Hot Boundary Temperature ( °R) 

Cold Boundary Temperature (°R) 

Apparent Insulation Thickness (FT) 

Total Number of Radiation Shields (l?t*N^ 

Mean Emittance of the sides of the radiation shields 

o 

Heat leak flux per unit area (BTU/Hr-Ft ) 
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The Math Model Equations 


For a detailed discussion of the derivation of the general form of the equa- 
tions which follow, the reader is referred to Reference 1.9-10. S ecific 
sources for each of the following equations is given with the equation. 


The equations given below are termed "installed insulation heat flux 
equations" since the data employed in the equations reflects test data from 
installed systems of insulation. 


1. DOUBLE ALUMINIZED MYLAR/ SILK JET (DAM/SN) SYSTEM ; (Ref. 1.9-10) 

^ “ - (B-l) (2 - 1) 


Emittance: (Ref. 1.9-9> Fig. h-2) 

= ^-^0 X 10"^(T 
DAM ^ 


'H’oo+ 

V X ^ UUTl • 


T -T 

q = 


DOUBLE GOLDIZED MYLAR/ SILK RET (DGM/SN) SYSTEM ; (Ref. 1.9-10) 
= 2.22 X 10“^ lr„ + ^ ^ ^ 

^ (li-l) (2 - 1) 


Emittance ; (Ref. 1.9-9, Fig- ^-*-3) 
^DGM = 8.76 X 10 "^ ( 1 ^^)°'^*^^ 

Heat Fl-ux; 

T -T 

<1 = ^ H C 
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3- DOUBLE ALUMINIZED MYLAR/TISSUE GLASS (DAM/TG) SYSTEM ; 
Append. J) 

= 7.0 X 10"^^(I)\. + l-7a(Tj^+Tp) (Tjj+Tp) t 

€ 

Emittance ; (Ref. 1.9-9> Fig. 4-2) 

= ^-^0 X 10 '^ 

DAM M 

Heat Flux: 


(Ref. 1.9 


iVV 


4. CRIUKLED DOUBLE ALUMINIZED MYLAR/TISSUE GLASS (CDAM/TG) SYSTEM ; 
(Ref. 1.9-10, Append. J) 

K„ = 8.8 X 10"^^(I)^T„ + ^ 

^ (M-1) (2 -"I) 

€ 

Emittance ; (Ref, 1.9-9, Fig. 4-5) 

= ‘*•9° * 

Heat Flux ; 


5, ireC-2, CRIMKLED SINGLE ALUMINIZED MYLAR (CSAM) SXSTEM : (Ref. 1. 

Append, j) 

Kg = 2.0 X 10"^° (N)^Tj^ + ^ 

(N-1) (i + J - 1) 

^a 'b 

Emittance ; 

€a =^CSAM = ^ (Ref. 1-9-9, Fig. 45-) 

=^YLAE = 5.58 X 10-3(yO-‘^T (Bbf. 1.9-9, Fig. k-k) 


Heat Flux ; 

q = Kj,‘ 


- 10 , 


9-10, 
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SUFERFLOC SYSTEM: (Ref. 1.9-10, Append. J) 

(with constant modified to account for degradation) 

Kg = 15.4 X 10 "^^(N)^Tj^ + 


(W-1) (i + i -1) 


Emlttance ; 

^ = 4.40 X 10“\Tj^)°‘^^'^ 


a ALUM 


(Ref. 1 . 9 - 9 , Fig. 4-2) 


*^b ~ ^NRS ~ 0*4l (Ref. CONVAIP supplied data) 


Heat Flux ; 

t 


7. MICROSPHERES: 


(104 to 135 Dia. 
T. 


ip2 

Kg = 1.56 X 10-^3(t)3 ( 1 ^ ^ ) (1 + c ^ 

H H 


= 5 . Ib/ft^) (Ref. 1 . 9 - 12 ) 


Heat Flux : 

_ (T..-T.) 

H n O' 


8* POLYURETHAHE FOAM : {p = 2.0 Ibs/ft^) (Ref. 1.9-11, Sec 8.3.2, Figs. 

8. 3.2-1 through 8. 3.2-6) 

Kg = 1.1295 X 10"^ + 3.4810 X 10"^(Tj^) 


Heat Flux: 

H = Kg ^V^C) 

"t 
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9. FIBERGLAS BATTING - HELIUM PURGED ; (Ref. 1.9-11, Sec. 8.3.2, Figs. 

8 . 3 . 2 - 10 , 11 , 12 } 


= 1.3836 X 10“2 

Heat Flux: 


NOTE: Additional information relating to Microsphere insulation may be 

found in Ref. 1.9-13- 
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MATH MODEL FOR SUBROUTIME TAM 
PURPOSE OF SUBROUTINE 

Subroutine TAM provides in one subroutine the equations and iterative pro- 
cedural steps which generate for all coast and burn periods, in the mission 
duty cycle, the tank pressure history, pressurization and vent requirements, 
propellant quantity history, and liquid and gas residuals quantities, from 
which the final tank size can be determined. The subroutine provides three 
pressurization options, as follows: 

1. v^elf Pressurization 

2. Cold Helium Pressurization 

3. Vaporized Propellant 

The subroutine performs the complete set of computations for the oxidizer 
tank subsystem first and then reports the entire cycle for the fuel tank 
subsystemm thus providing separate histories abd utilization data for each 
tank. 

SUBPROGRAMS AND SYMBOLS REFERENCED IN MATH MODEL 

Subroutines, functions, and data look-up Table numbers are referenced with 
the using equations contained in this math model. The asterisk (*) is used 
to imply multiplication, the slash (/) denotes division and the paranthesis 
( ) serve to group a set of mathematical terms. 

THE GENERALIZED MATH MODEL 


The model presented herein is generalized to eliminate the many intermediate 
calculations which are readily discernible from the subroutine listing given 
in Appendix B, pages 277 through 287. The model is illustrated for each of 
the three pressurization options given above. 
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GENERALIZED INPUT REQUIREMENTS 


T. 

1 


W 


pt 


Q 

w 

P 


op 


T. 


PG 


Tank Pressure 

Tank Temperature 

Volume of Tank - Initial Est. 

Weight Liquid and Weight of Gas 

Coast Interval One 

Burn Interval One 

Heat Flux Into Tank 
Fluid Flow Rate out of Tank 
Tank Vent Pressure 

Tank Operating Pressure 

- Temperature of Pressurant Gas 

Specific Internal Energy 


1.0 


SySTEM 1 - SELF PRESSURIZATION: 

1.1 Calculate Initial Effective Tank Density: 



^?T 

V 


1.2 Look-up Initial Energy Level: 


= f (Pi, Pi) 


Table 33 for 0^ 
Table 3^ for 

j 2 


1.3 Do Energy Balance for First Coast, ' 7 ^' 

(i r, 


■r, 
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Look up Resulting Pressure ; P ^ 

P = f (P., e.^ ) 

Table 36 for Og 
Table 37 for H 2 

Store P ^ 

' / 

Determine if P^ ^ Pv: 

'7i 

If Yes: 

(a) Call subroiitine VEMT for values of WP and ¥PV 

Wv = WPT - WP - WPV 

(b) Set P^j = Pv 

Store new P^ 

• ( 

( G ) Calculator : 

^ - (wpt)i - (wv )^ _ (Wp) Y} 

- Y - V 

(d) Look up New Energy Level e^^ : 

e.r, " f (/| , P<, ) 

Table 33 for 02 
Table 3^ for H 2 

If Wo: 

(a) Continue to next duty cycle Segment 0^ 

Do Energy Balance for First Burn 9^: 

\ = "r, («ptV. ■ 

(“bV, = ^ ’ 

Table 39 for O 2 
Table 40 for H 2 

Weight Propellant after the burn (Wp)Qj^: 

= (%V, - "«i 
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Internal Energy after the burn eg^: 


'01 


Ee 

TO 




1. 7 Calculate 



(»p)a -, 


1.8 


Look up Resulting Pressure 






Table 36 for Og 
Table 37 for 


Store 

1.9 Do Energy Balance for Second Coast 'X' 

« -fa 

1.10 Look up Resulting Pressture P-j-^ : 

V. “ " (pei, 

Table 36 for 0>2 
Table 37 for 

Store „ 

I 2 

1.11 Determine If ^ ^ 


Continue through coast and burn intervals; ^2’ ®2^ 3^ ®3^ 

n'f) Qf same steps as 1.1 through 1.11, each 

time storing 


C-239 


LOCKHEED MISSILES 8e SPACE COMPANY 



LMSC-A991396 


^©2 


and (Wv).-j-^ , (Wv ).-^2 


Sum (Wv)for Each Fluid Tank; 



(Wv) j 


J = 1 

1.13 Calculate Parent Gas Residuals: 


<“gb) 


Tank 

T 


l44 * P- * V 

: 

* R * T 




"0. 


Q 


f (Pq ) 


p Q. 


Function TSAT 


R 


f (T , IG) Subroutine ZFIKD 
f 

f (IG) Function FINDR 


o n 


SYSTEL4 2 - COUi HELrdI»I PKE3SURIZATI0K : 

2.1 Calculate Initial Effective Density ; 

V 

2.2 Look up Initial Energy Level; 


2.3 


e . 

1 


<f 1' 


Do Energy Balance for First Coast ; 

+ Q *^1 


<1 


= e . 


(W 

p^T 

2.4 Look up Resulting Pressure P 
I ^ ^ Pi^ 1^ 


1 • 


store P 


ri 


for Og & 


Table 33 for 0^ 

C 

Table 34 for 


Table 36 for 0^ 

C 

Table 37 for 
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Determine If ^ Pv : 

If Yes: 

(a) Call Subroutine VEIW, for values of 

’ HE^ P, PV 

= (Wht)i - <Vi -«PV 

(b) SetP.^^= P 

Store New 

(c) Calculate 

(»pr >1 - _ CWp^r, 

'' ~V 

(d) Look up New Energy Level e : 

V, = ( Pr,' ^rp) 

Table 33 for 0^ 
Table 3^ for Hg 

If No: 

(a) Continue to next duty cycle Segment 0^ 

Do Energy Balance For First Burn 0x: 



'V-Ti = > 


Weight Propellant after the Biurn (Wp)0 


!• 


Table 39 for 0^ 
Table 4o for H 

2 
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2.7 


2.8 


2.9 



("pV,- * ®1 





Calculate 9^: 



P^i 

(Wp)q 


Look up Resulting Pressure : 





^01 

= f ( P 01, 

Table ^6 for 
Table 37 for 

Store Pq 
^1 



Find Pressurant 

Required for Oq: 


Q 

<D 

H 

II 

f (IG, Pq^ ) 

Call GSZDNS 

(Vull) = 
®1 

f (Tq^, IG) 

V * ( ~ — 

- (Pg)ei 

Call RHpLIQ 

© 

H 

II 

144. * (Pop - PoJ * (Vull)eT 





IG = n 


Subroutine ZFIHD 
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2.10 


^ = f (IG) 

T6i = f (Pq^) 

T, = P - 
^HE 

Store and P^^ 

Do Energy Balance for Second Coast ’ 






2.11 Look up Resulting Pressure P-^gC 

PT2= ^ 


2.12 


Store P .■Y' 

' 2 


Determine If P 



Function FIKDR 
Function TSAT 


Table 36 for 0 , 
Table 37 for 


Continue through coast and burn sequence ' ^2^ 

0^ using steps 2.1 through 2.11, storing 

1’ ^9i^’ ^■'T' 2^ ^Qg f ^ ^©f 

^^HeV 1^ ^^HE^9l, ^^HE^Yf ^ (^HE^Of 
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2.13 


2.14 


2.15 


SYSTEM 


3.1 


3.2 


Sum ¥v for Each Fluid Tank: 

f 




J = 1 


Calculate Parent Gas Residuals: 


^^GR^ Tank 


144. X Pg * V 


Z * R * T 
Qf p ^9, 


% = " %'> 

\ = " 

R = f (IG) 

P 


Function TSAT 
Subroutine ZFIND 
Function FIKDR 


Calculate Pressurization System Weight : 
(a) Sum Helium Quantities: 


^^HE^ToT 



J 


* (©•) 
J 


(b) Compute Helium System Weight: 

^^PcWstem = B * + C 


B = 1.5 Scaling Low Factor 

C = 40. = Hardware Scaling 

Low Constant 


3 - VAPORIZED PROPELLANT PRESSURIZATION: 


Calculate Initial Effective Density: 


Pi 


W, 


EL 

V 


Look up Initial Energy Level : 

= "<Pi»Pi) 


e . 

1 
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Do Energy Balance for First Coast; 




e. + 
1 






JliOok up Resulting Pressure P - 7 ^ : 

= f i P±, 

^ Table 36 for 0^ 

Store Table 37 for 


Determine If Pv t 

If Yes ; 

(a) Call Siibroutine VENT for values at W^, W , etc. 

P^ pv' 

(Vfi = (Vi-(Vi-«pv 

(b) Set . Pv: 

Store new 

(c) Calculate : 

* V 


(d) Look up New Energy Level e : 

Vi " ^ ^ ^<1^ Table 33 for 0^ 

Table 3^ for 

If No ; 

(a) Continue to Next Duty Cycle Segment 0^: 


Assumption ; The greatest gaseous fluid-mass -flux 

is required if complete paper-pressirre collapse is 

assumed. This is a conservative assumption, but probably 

realistic for the shuttle since propellant orientation is 
not fixed at all times. 
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3.6 Do Energy Balance for First Burn; Q 








' ) 


f (p ) 

I ) 


Table 39 Poi" 0^ 


Table 40 for H, 


Weight Propellant After the Burn (W_) : 

' P 

= 'M-. - ( <" )e * ®i 


3.7 Calculate O : 


P 0 = (w 


Look up Energy Level as If Tank were Maintained at Pop; 




Table 33 for 0^ 
Table 34 for 


Calculate Total Energy of Tank at Pop: 


(Eq )po^ = (Sq ) 

hop pop 


3.10 CalcifLate Pressurant Gas Flow Rate: 




(pQl)nor) - P Qi 


Cp ^ 
PG 
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where 


3.11 


3.12 


3.13 


3 . 1 ^ 


(T ) = (T„) = f (P-„) Function TSAT 


o. 

1 


CP. 


ref 


PG 


= f 


OP' 

^PG ^’^P^POP 




Subroutine GSUBP 


Calculate Vented Propellant for 

Call Subroutine VENT, for values of Wp, VV^PV, etc. 

? )r. 

V 

Look Up Energy Level for r^’ 

Do Energy Balance for Burn Two; .-^2 

o 
o 
o 
o 

Repeat process continuing through Coast and Burn sequence, 

T 3’ -0-3 ■ " " Tf^ -O-f 

The same as described in preceeding steps, each time storing 
pressures, flow rates, propellant weights, densities, etc. 
Sum Wv for Each Tank Fluid: 
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3.15 Calculate Parent Gas Residuals: 


( w 

GR^ Tank 

144 

* p * V 

af 

V ^ 

^ef 

* I? * T 

^ Of 

^Of 

■ ^ ("“af) 

Function TSAT 

^Of 

= " (''of' 

IG) 

Subroutine Z FIND 


= f (IG) 


Function FIHDR 


3.16 


3.17 


Find Maximum Flowrate of Pressurant Gas Occurring over 
Duty Cycle; ^ — — — - 

i -Gj = f 



Calculate Heat Exchanger Weight; 

Call Subroutine HEATEX for heat exchanger weight and AP. 


3.18 Calculate Weight of Gas Generator Propel Isn’t 


^\A/GGp]p^ ^ 


= f 




= 1 


Table 11 for 0^ 


Table 12 for 


3.19 Calculate Gas Generator System Weight; 

Call GASGEN^ for gas generator weight. 


C-248 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


3.20 


3.21 


3.22 


3.23 


Calculate Mayman Meter Horsepower Required; 


^^max^PG 


l44. * (A Pqp) * PGMX^ 


550 . ^ ( 0 . 5 ) p 

where: = 0.5 

P LIG 


f (Tp, IG) Subroutine RHOLIQ 


Lock Up Motor Weight for Circulating Pump Drive: 


( UX, 4 . ) = f (HP , Motor Speed) 

'’'Motor‘d ' max^ ^ ' 


Table l 6 , for 
Op motor and motor 


If Motor is Battery Powered, find Battery Weight; 


144 * A^cP * 

550 * (0.5) * * 3600 


W B, =0.0 

\A/ B i^B ^PGO. * "^0 



W, 


Batt 
Where : 

h 


= . WB/pg 

= Power Density of Battery 


Determine Pressurization Circulating Pump Weight: 

V\/ CPPC " ^ NPSH, A P^p, OJpQMAx) 

Table lU for 0^ 
Table I5 for 
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3 - 2 h Determine Pressurization System Weight; 

vV SYS PG ' w HEX GG Vv/lylotor Vl/satt W/ CPPG 

3.25 Calculate Gas Generator Propellant Weight Required by Species; 
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MATH MODEL FOR SUBROUTINE TURBN 
PURPOSE OF SUBROUTINE 

To provide for the computation of the weight of a turbine drive unit for the subcritical 
cryogenic pumps. The subroutine is based upon data developed for NASA by a study 
contractor (Ref. 1.9-14). 

SYMBOLS AND CONSTANTS REFERENCED IN THE MATH MODEL 


SYMBOLS: 


Np 

^SS 

NPSH 

Q 

Drj, 

U 

WpT 

HP 


W 


R 


W_ 


n 


— Pump speed (rpm) 

— Suction specific speed 

— Net positive suction head (ft) 

— Flow rate (gal/min) 

— Turbine rotor mean diameter (in. ) 

— Turbine mean blade speed (ft/ sec) 

— Weight of power transmission element (lb) 

— Horsepower required by pump 

— Weight of turbine rotor (lb) 

— Weight of inlet manifold and nozzle (lb) 


Constants: 

H„ turbine , mean blade speed = 1000 ft/ sec 

Oq turbine, mean blade speed = 650 ft/sec 

Hg turbine , power trans element weight factor = 84.0 
0<, turbine, power trans element weight factor = 121.0 

INPUT REQUIRED FOR MATH MODEL 

IGAS = Fluid identify index , 1 = Og ; 2 = Hg 

PSPD = Pump speed (rpm) 

PMP0W = Pump power (Hp) 
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TGGDC = Turbine gas generator chamber pressure (psia) 
PSTAGE = Number of pump stages 

THE MATH MODEL EQUATIONS 

1, Compute Turbine Rotor Mean Diameter 


°T 


229 U 
N^ 


2. Compute Weight of Power Transmission Element 


W 


PT 



where 

F = 84.0 for LH 2 

= 121.0 for LOg 

3. Compute Weight of Turbine Rotor 



where 

3 

0.286 = density of rotor material (Ib/in. ) 

4. Compute Weight of Inlet Manifold and Nozzle 
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where 

P,pj = TGGPC = Turbine inlet gas pressure 
5. Compute Weight of Inducer 


Windcr " (Defined) 


6. Compute Weight of Turbine 

Stage Multiplier = Q = 1 
If, PSTAGE is greater than 1 , then Q = 2. 

^TRBN "" ^PT + Wjj X Q + x Q 
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Section D-1 

THE HYDRAZINE APU SYSTEM ANALYSIS PROGRAM (HZ PROG) 

D-1.1 INTRODUCTION TO HZPR0G. 

The Hydrazine APU System Analysis Program utilizes the basic structures of the 
cryogenic Integrated Math Model Program to permit the analysis of a storable fuel 
power system. Modifications consisted of the deletion of many of the cryogenic 
oriented subprograms and the inclusion of five new subprograms for the processing 
of a hydrazine system and system configuration. 

Basically, the program logic is imchanged from the description given in Vol. V B-1, 
and only minor changes were required in a few PDP elements to accommodate additional 
variables and new input data READ statements. In general, then, the information 
contained in Vol. V B-1 is applicable to program HZPR0G. 

The program will size the Hydrazine APU system to fit the operating demands and 
duty cycle constraints and produces as output the component and system hardware 
size and weight, propellant (or reactant) weight', pressurant gas weight, and such 
analytical information (i.e. , computed performance values) as may be desired. The 
analytical results are displayed both as time dependent data tabulations and summary 
table data. 
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D-1.2 PROGRAM LOGIC MODIFICATION 

The major change in program logic arises from the necessity of adding a new system 
name sequence to the five existing sequences. This required coding changes in Sub- 
routine C0NTR0L, CRYC0N and STC^DTA as well as alterations to the Procedure 
Definition Processor elements CNAMES, CAPU, and CCNTRL. The Data Table 
allocations were increased from fifty to fifty-five tables requiring changes in the 
Procedure Definition Processors CTAB and TABL0K. 
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d-1.3 program sequencing modification 

With the addition of the sixth system "HZN-APU” it was necessary to provide additional 
sequencing capability for subroutine CRYC0N. 

D-1.3.1 Hydrazine APU Calculational Sequence 

The subprogram which characterizes the Hydrazine APU system is subroutine HZAPU. 
This nearly self contained subprogram performs the system sizing calculations based 
upon the mass and energy transfer requirements of the input performance and mission 
duty cycle constraints. 

The individual fluid circuit components and line segments are sized and weighed by 
subroutine HZNCMP which additionally supplies pressure drop calculations for the 
main fluid circuits. HZ CMP is called directly by HZAPU. 

For a Hydrazine APU analysis, subroutine CRYC0N has the values assigned, via input 
data, for SYSNUM, SCRIT and KSUBC (SYSNUM,!), as follows: 

SYSNUM = 6 
SCRIT - 1 

and KSUBC (6,1). 

The preprogrammed data statement stored in core by subroutine ST0DTA for this 
system analysis is, (KSUBC(6,I),I = 1,9)/12, 0. 0, 0, 0, 0, 0, 0, O/. 

The order of sub-program execution is as given in the following table: 

Table 1. 3-1 

crycQn execution sequence for a hydrazine 

APU SYSTEM ANALYSIS 


Loop 

JKM 

G0 T0 

Subprogram 

Pass 

Value 

Statement 

Called 

1 

12 

950 

HZAPU 

2 

0 

2200 

Terminates 

Loop 
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When the internal loop is terminated CRYC0N calls subroutine C^TPWSM, outputs the 
weight summaries and returns to CONTRL for a new case, or termination of the 
program. 
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D-1, 4 INPUT DATA - CARD DEFINITION AND DESCRIPTION 
D-1.4. 1 Hydrazine APU Input Data Card 


Gp(o) — Card 1 


The following variables are input on the Hydrazine APU input data card: 


NAPU 

Integer Number of APUs Available 

HPR 

Herse Power Rating of Single APU 

PTRBIN 

Turbine Inlet Pressure 

PRAT 

Turbine Pressure Ratio 

PCRSRV 

Percent Reserve Fuel Required for Mission 

SPGPRS 

Pressurant Gas Storage Pressure 


The single card is usually identified by placing APU-1 in card columns 76-80. 
D-1. 4. 2 Input Data Card Illustration 


The card is illustrated in Figure D-1. 4-1. 
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Figure D-1.4-1 Hydrazine APU Input Data Card 
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d-1.5 subroutine descriptions 

This subsection contains the descriptions of the subroutines which are pertinent to the 
Hydrazine APU System Analysis. Subroutines not necessary to this analysis have been 
purged from the program file. The major subroutines for other systems have been 
dummied by retaining the element name and the RETURN and END statements. This 
procedure avoided extensive changes in the program basic structure. 

D-1.5.1 SUBROUTINE HZAPU 

DESCRIPTION 

The subroutine contains the equations and computational techniques required for the 
characterization analysis of a positive expulsion hydrazine fueled APU system. The 
subroutine permits the computation of pertinent fuel and pressurant gas parameters 
required in the analysis and presents the calculated data in tabular format output. 

The following are the principal computations embodied in the subroutine: 

a. Based upon the input APU duty cycle the subroutine determines for 
each duty cycle interval: 

Percent APU Power 
Rated Flow Rate 
Nominal Flow Rate 
Percent of Full Flow — Flowing 
Turbine Inlet Temperature 
Correction Factor for Nominal SPC 
Corrected Flow Rate Value 
Maximum Corrected Flow Rate 

b. Total propellant consumed in mission 

c. Propellant reserve for mission 

d. Volume and surface area of propellant tank 

e. Weight of tank pressure vessel, tank insulation and tank fluid expulsion 
device 
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f. Tank propellant and pressure history 

g. Pressurant gas flow rate and quantity history 

h. Weight of pressurant system by scaling law 

i. Volume, surface area, diameter, weight of pressurant gas storage 
tank and tank insulation as calculated volumes. 

System component weights and pressure drop calculations for the maximum propel- 
lant flow conditions are computed sequentially by subroutine HZNCMP, which is 
called by HZAPU. 

Input data to subroutine HZAPU is read into the program by subroutine C0MPIL. The 
input data, required constants and computed parameter volumes are stored in labeled 
common preassigned storage areas defined by a set of Procedure Definition Processor 
elements. The labeled common groups employed for storage and data transfer are: 

C0MM0N/CIAPU/ 

C0MM0N/CVAPU/ 

C0MM0N/CCNTRL/ 

C0]'.'I]H0N/CDCYCL/ 

C0MM0N/CENG/ 

C0 MM0N/CI0UNT/ 

C0MM0N/CMATRL/ 

C0MM0N/CTANK/ 

C0MM0N/TABL0K/ 

C0MM0N/CPAGE/ 

HZAPU MATHEMATICAL MODEL 


The equations, mathematical procedures, necessary tables and constants required are 
presented in the HZAPU MATH MODEL, Section D-1.6. 

CALLING SEQUENCE 

Subroutine HZAPU is initiated via a simple call from Subroutine CRYC0N. No calling 
arguments are employed. Data transfer to HZAPU is accomplished through the use 
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of INCLUDE statements as shown in the subroutine listing. Completion of the HZAPU 
calculations return sequential control of the program to CRYC0N. 

SIGNIFICANT VARIABLES 


Significant variables processed by subroutine HZAPU are as follows: 


Name 

Type 

1/0 

Dimension 

Description 

NAPU 

I 

I 

1 

Number of APU units 

HPR 

R 

I 

1 

Horsepower rating of APU (HP) 

T0THPR 

R 

0 

1 

Total horsepower available (HP) 

WD 

R 

0 

20 

Nominal propellant flow rate (Ib/min) 

PCTHP 

R 

0 

20 

Percent of total horsepower available (%) 

PCWD0T 

R 

0 

20 

Percent of total flow rate (%) 

WD0TR 

R 

0 

20 

Propellant flow rate at SPCR (Ib/min) 

SPCR 

R 

C 

20 

Specific propellant consxunption at rated APU 
horsepower (Ib/HP-hr) 

SPCN 

R 

C 

20 

Specific propellant consumption at nominal APU 
horsepower (Ib/HP-hr) 

PTRBIN 

R 

I 

1 

Turbine inlet pressure (psia) 

PRAT 

R 

I 

1 

Turbine pressure ratio 

PAMB 

R 

I 

20 

APU outside ambient pressure (psia) 

HP 

R 

I 

20 

Nominal APU horsepower/duty cycle interval 

NE0P 

I 

I 

20 

Number of operating APU units 

GGXTM 

R 

C 

20 

Turbine inlet temperature in given duty cycle 
interval (°R) 

CFSPC 

R 

C 

20 

Correction factor for propellant flow rate due to 
catalyst bed exit temperature 

WDC 

R 

0 

20 

Corrected propellant flow rate (Ib/min) 

TIPWT 

R 

0 

1 

Total propellant for APU turbine (lbs) 

WD0T 

R 

C 

1 

Max. propellant flow rate in all duty cycles (Ib/min) 

WD0TI 

R 

0 

2 

Max. fluid flow rate in all duty cycles (Ib/min) 

NDCYCL 

R 

I 

100 

Duty cycle intervals (min) 

V0TNK 

R 

0 

1 

Volume — propellant tank (cu ft) 

ARTNK 

R 

0 

1 

Surface area — propellant tank (sq ft) 
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Name 


1/0 

Dimension Description 

WTPV 

R 

0 

1 

Weight of tank pressure vessel (lbs) 

WTBLAD 

R 

0 

1 

Weight of expulsion device (lbs) 

WTT0T 

R 

0 

22 

Weight of tank assembly (lbs) 

TIWT 

R 

0 

2 

Tank insulation weight (lbs) 

WTRES 

R 

C 

1 

Weight reserve fuel (lbs) 

WPT0T 

R 

0 

2 

Total fluid loaded (lb) 

RH0HZN 

R 

C 

1 

Density of hydrazine (Ib/cu ft) 

FTUX 

R 


1 

Ultimate strength - tank material 

RH0FTZ 

R 

c 

1 

Material density over F-p^j 

WPREM 

R 

0 

20 

Weight fuel removal in each duty cycle (lbs) 

V0LDP 

R 

C 

1 

Volumatic fuel depletion each duty cycle (cu ft) 

V0LDPS 

R 

C 

1 

Sximmed vol. fuel depletion (cu ft) 

V0LRM 

R 

0 

20 

Volume fuel remaining each duty cycle (cu ft) 

PHE 

R 

C 

1 

Helium pressure in expulsion device 

THE 

R 

C 

1 

Helium temp, in expulsion device 

WDTHE 

R 

0 

20 

Helium flow rate each duty cycle (Ib/min) 

\17TTTT» A 

vv ixjjjrviy 

T-% 

It 

0 

20 

Weight heliiun consumed each duty cycle (lb) 

WHESUM 

R 

0 

1 

Total helium consumed (lb) 

WDHEMX 

R 

0 

1 

Max. helium flow rate any duty cycle (Ib/min) 

WT0TPG 

R 

0 

1 

Pressurant gas system est. wgt from scaling 
law (lb) 

V0TKHE 

R 

0 

1 

Volume helium tank (cu ft) 

ARTKHE 

R 

0 

1 

Surface area helium tank (sq ft) 

DITKHE 

R 

0 

1 

Diameter helium tank (inches) 

WTHETK 

R 

0 

1 

Weight at helium tank (lb) 
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SUBPROGRAMS REFERENCED IN HZAPU 


Name 

Tipe 

Purpose 

Reference 

MIPE 

F 

Table Data Extraction 

Page B-221 

PAGE 

F 

Controls Pagination and Line Count 

Page B-239 

FINTAB 

S 

Finds Designated Table at Data 

Page B-147 

ZFIND 

S 

Computes Compressibility of De- 
sired Fluid at Specified Temp, and 
Pressure 

Page B-334 

FINDR 

F 

Finds Gas Constant for Specified 
Fluid 

Page B-140 

HZNCMP 

S 

Does Configuration Analysis for 
Hydrazine APU System 

Page D-93 

SUBPROGRAMS REFERENCING HZAPU 


Name 

Type 

Purpose 

Reference 

CRYC0N 

S 

Sequential Control of Designated 
System Analysis 

Page D-83 


LISTING REFERENCE PAGE 

A listing of Subroutine HZAPU will be found in Section D-3.0, page D-86. 
FLOW CHART 


The flow chart for Subroutine HZAPU will be found in Fig. D-1. 5-1. 
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Figure D-1. 5-1 Flow Chart for Subroutine HZAPU 
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D-1.5.2 subroutine HZNCMP 
DESCRIPTION 


Subroutine HZNCMP is coded to perform sizing and weight analysis for all of the com- 
ponent units which make up the hydrazine APU system configuration. The system 
configuration is defined as the computer image of the system main flow schematic 
diagram wherein all components and line segments are arranged in the normal logical 
sequence. The subroutine requires that each system or subsystem fluid segment begin 
with a data entry which flags the fluid kind and state and further requires that when a 
fluid state changes (i.e. , gas to liquid), a second data entry flag must be available. 

The subroutine is structured to process an APU system which utilizes Hydrazine and 
Helium as working fluids. The logic employed requires that the configuration data be 
entered starting with the fluid consumer and working back to the fluid storage tanks, 
thus permitting the accumulation of pressure drop data in an orderly fashion. 

Subroutine HZNCMP is employed for the evaluation of a two fluid system and is ar- 
ranged to process the fuel handling subsystem first, followed by the pressurization 
subsystem. It can, however, process either subsystem, or, just one subsystem, 
depending upon the setting of the input fluid flag variables. The program calls in re- 
quired sub-programs as needed for the sizing and weighing of tlie individual components 
and line segments as they are encoimtered in the configuration sequence. The HZNCMP 
analysis procedure is based upon accomplishing a one-by-one analysis of the sequential 
component stream defined by the configuration table as read-in by subroutine C0MPIL. 
Based upon the input data, the subroutine accomplishes the computation of the individual 
component sizing, weight, pressure drop and flow constraint data and presents the 
calculated values in tabular formatted output as a "Summary of Computed System Con- 
figuration Parameters." 
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The principal computations accomplished in subroutine HZNCMP are as follows: 


a. The subroutine first initializes a set of flag and summation variables 
and starts the configuration loop by calling for the decoding of first 
branching variable as entered from the first configuration data card. 

The primary branching control variables employed are CFUNCT and 
CFTYPE as defined in subroutine C0MPIL and PDP-CONFIG, The 
branching variable CFUNCT contains the coding for (in successive data 
entries), the fluid identification, consumer identification and, in turn, 
each component unit sequentially considered in the system. The 
secondary branching control variable CFTYPE successively contains 
the coding for, the fluid state, the consumer characteristic type, and, 

in turn, the controlling characteristjqs of each component unit sequentially 
considered in the system configuration. Subroutine branching to the speci- 
fied component analysis region of the coding is accomplished via a com- 
puted G0 T0 statement, controlled by the variable CFUNCT. 

b. The subroutine identifies the fluid to be considered and identifies its 
state condition and then initializes the sequential indices. 

c. Identifies the fluid consumer and sets up the consumer fluid flowrate, 
fluid pressure and fluid temperature with their respective sequential 
indices. At this point the actual configuration analysis is begun. 

d. The subroutine then processes a line segment (whenever called for by 
CFUNCT) through the sequence of the line analysis to compute - flow 
conditions, pressure drop and line weight. Fano-fiow, velocity effects, 
as well as minimum wall thickness are all taken into consideration in the 
analysis . 

e. Processes a control unit (valve, check valve, orifice, regulator, or flow- 
meter) through the sequence of the control analysis to compute flow con- 
ditions, pressure drop, and control weight. Mass characteristics as a 
function of pressure requirements for the control unit are specified in the 
"tens" digit of CFTYPE. Selection of the type of control unit is made via 
the "units" digit of CFTYPE, as defined in PDP-CCNFIG. 

f. The subroutine processes a fitting or tap in much the same fashion as for 
the line segment analysis, taking into account the flow geometry effects. 
Computes the flow conditions, pressure drop and fitting or tap weight. 

g. The subroutine then processes a fluid supply tank, first setting up the 
tank temperature and pressure. The actual tank weight for each fluid 
tank has been calculated previously in subroutine HZAPU, and subroutine 
HZNCMP simply retrieves the weight value from common storage. 

HZNCMP performs a check to see if the tank pressure is adequate for 
the system pressure drop total at the tank outlet. 

h. The subroutine outputs the computed configuration component data in a 
tabular formatted output with all components identified and in the same 
sequence as given in the original system schematic. 
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Input data for use in subroutine HZNCMP is read-in at program initiation time via 
subroutine C0MPIL from the configuration data cards. Data from each card is stored 
in a packed array by subroutine ST0C0N using equivalenced array variables defined in 
the Procedure Definition Processor CONFIG. Retrieval of the data is accomplished in 
HZNCMP via repeated calls to subroutine GETC0N which unpacks the data as needed. 

The input data and subprogram computed parameter values are stored in various regions 
of the labeled C0MM0N storage defined by PDP elements. The labeled common storage 
employed by the subroutine are as follows: 

C0MM0N/CAPU/ 

C0MM0N/C CNFIG/ 

C0MM0N/CCNTRL/ 

C0MM0N/CDCYCL/ 

C0MM0N/CENG/ 

C0MM0N/CI0UNT/ 

C0MM0N/CNAMES/ 

C0MM0N/C0NST/ 

C0MM0N/CPAGE/ 

C0MM0N/CTANK/ 

C0 MM0N/TABL0K/ 

HZNCMP MATHEMATICAL MODEL 

The math model for subroutine HZNCMP presenting the equations, math logic, and 
procedures are presented in Section D-1.6. 

CALLING SEQUENCE 


The subroutine is initiated by a simple call statement with no calling variables from 
subroutine HZAPU. 

Data transfer to and from subroutine HZNCMP is effected through the use of INCLUDE 
statements which bring in the appropriate PDP elements defining the required labeled 
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C0MM0N storage areas. Upon completion of the HZNCMP computations, the program 
control returns to subroutine HZAPU. 

SIGNIFICANT VARIABLES 


Significant variables employed in, and processed by, subroutine HZNCMP are defined 
in the following list: 


Name 

Type 

1/0 

Dimension 

Description 

I CNF 

T 

1 

I 

1 

Number of configuration data cards input 

IDX 

I 

0 

1 

Configuration item index 

ISIGN 

I 

0 

1 

Analysis directional index 

CFUNCT 

I 

I 

1 

Integer Corresponding to Configuration Item 
Function 

CFTYPE 

I 

I 

1 

Integer Corresponding to Function Type 

CMTYPE 

I 

I 

1 

Integer Corresponding to Material Type 

CITYPE 

I 

I 

1 

Integer Corresponding to Insulation Type 

CN0PER 

I 

I 

1 

Number of APU units operating 

PMsnrxjv 

w/ a. X 

T 

X 

T 

1 

1 

Number of APU units on standby 

FRC0EF 

R 

c 

100 

Characteristic Friction Factor for Flow Region 

L0D 

R 

I 

100 

Length over Diameter, or. Length 

DIAM 

R 

I 

100 

Diameter 

ITHIK 

R 

I 

100 

Insulation Thickness 

NEAR 

R 

I 

100 

Number of Layers of Insulation per Inch 

C0DE 

R 

I 

100 

Identification Code for Config. Unit 

IGAS 

I 

I 

1 

Integer Corresponding to Fluid Kind (N 2 H 4 or 
Helium) 

GSTATE 

I 

I 

1 

Integer Corresponding to Fluid State (Gas or 
Liquid) 

PRES 

R 

0 

100 

Fluid Pressure at Each Point in System 

TEMP 

R 

0 

100 

Fluid Temp, at each point in System 

WD0TN 

R 

0 

100 

Fluid Flowrate at each print in system 

WD0TI 

R 

I 

2 

Input Fluid Max, Flow Rate at Consumer 

FLD 

R 

0 

1 

■fT 

iii for Configuration Unit Considered 
D 
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Name 

Type 

1/0 

Dimension 

Description 

IDV 

I 

I 

1 

Integer Pointer for Control Mass Characteristic 

LDV 

I 

I 

1 

Integer Pointer for Fitting and Tap Configuration 

RH0 

R 

0 

1 

Fluid Density when a gas 

DELP 

R 

0 

1 

Fluid Pressure Drop across Component 

A 

R 

0 

1 

Cross Sectional Area of Flow Region 

WEIGHT 

R 

0 

1 

Weight of Configuration Component Considered 

INDXTK 

I 

0 

2 

Fluid Tank Index-Set to IDX 

SIPRES 

R 

I 

2, 1 

Fluid Tank Initial Pressure 

SITEMP 

R 

I 

2, 1 

Fluid Tank Initial Temperature 

WTT0T 

R 

I 

2 

Fluid Tank Weight 

MACH 

R 

0 

100 

Fluid Mach No. 

MFLG 

I 

0 

100 

Fluid Mach No. Flag 

S0PRES 

R 

I 

2, 1 

Tank Operating Pressure 

SPGTEM 

R 

I 

2, 1 

Pressurant Gas Temperature 

SPGPRS 

R 

I 

1 

Pressurant Gas Pressure 

WTBLAD 

R 

C 

1 

Expulsion Device Weight 

FLMU 

R 

C 

1 

Fluid Viscosity 

VELCTY 

R 

c 

1 

Fluid Velocity 

REYNUM 

R 

c 

1 

Reynold Niunber for Flow Conditions 

RH0HZN 

R 

c 

1 

Density of Hydrazine 

IDV 

I 

I 

1 

Flow Control Component Type Weight Classifica- 
tion Index 

LDV 

I 

I 

1 

Flow Handling Component Geometry Description 
Index 


SUBPROGRAMS REFERENCED IN HZNCMP 


Name 

PAGE 

GETC0N 

AMINI 

VGVSHE 


Type Purpose 

F Controls Pagination and Line Count 

S Unpacks Configuration Data Records 

F Finds Minimum of Two Real Values 

S Computes Mach Number for Helium Fluid at 
Stated Fluid Density Using Velocity of Sound 
Equations 
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Name 

Type 

Purpose 

Reference 

LWEGHT 

S 

Computes Weight of a Line Segment Considering 
Minimum Wall Thicknesses 

Page B-215 

HZCVCW 

F 

Computes Weight of a Valve or Fitting as 
Specified 

Page D-92 

EXIT 

S 

Causes Program Termination — Used to Terminate 
from Error Condition 

System Library 

ABS 

F 

Computes Absolute Value of Defined Variable 

System Library 

F INTAB 

S 

Table Location and Look-up 

Page B-147 

MIPE 

F 

Table Data Extraction 

"R—991 


DATA TABLES REFERENCED IN HZNCMP 


Table Number Title 

51 Viscosity of Hydrazine 

52 Viscosity of Helium 

SUBPROGRAMS REFERENCING HZNCMP 


Name Type Purpose Reference 

HZAPU S Analysis of Hydrazine APU Page D-86 

LISTING REFERENCE PAGE 


The subroutine Listing will be found in Section D-3.0, page D-93. 
FLOW CHART 


A flow chart for subroutine HZNCMP is presented in Figure D-1. 5-2. 


D-18 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 



Figure D-1. 5-2 Flow Chart for Subroutine HZNCMP 
(Sheet 1) 
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Figure D-1, 5-2 Flow Chart for Subroutine HZNCMP 
(Sheet 2) 
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Figure D-1, 5-2 Flow Chart for Subroutine HZNCMP 
(Sheet 4) 
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Figure D-1. 5-2 Flow Chart for Subroutine HZNCMP 
(Sheet 5) 
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D-1.5.3 function HZCVCW 
DESCRIPTION 


The function subprogram generates weight values for hydrazine valves, regulators 
and connectors. The function utilizes two equations devised from empirical hydrazine 
valve data. The basic data treats valves rated at two levels of pressure, below one 
thousand psia and above one thousand psia. The data were plotted, as shown in Figure 
D-1. 5-3, and equations derived from curve fitting procedures. The equations are as 
follows: 

For pressures up to 1000 psia; 

Valve Wgt. = 0.669405 X ^ DIAM.) 

For pressures greater than 1000 psia; 

Valve Wgt. = 1. 195686 X ^ 

In order to accommodate such components as check valves, regulators and disconnects 
for line sizes up to 3. 5 inches, a set of adjusting factors for the equations were de- 
veloped using weight ratios from standard equivalent diameter components. The basic 
valve weight equations with the adjusting factors are felt to yield reasonably close 
weight values for the span of hydrazine flow control components currently being con- 
sidered. The function may be easily modified to accommodate more advanced data 
when such data becomes available. The function requires only the component port size, 
the operating service pressure and the component related type index, all of which are 
input to the function in the calling arguments. No access to common storage is 
required. 

HZCVCW MATHEMATICAL MODEL 

No math model is provided since the given equations derived from Figure D-1. 5-3 are 
empirical data. The weight adjusting factors for check valves, etc. , are simple weight 
ratios derived from standard component data. 
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CALLING SEQUENCE 


The function subprogram is initiated by setting the weight variable equal to the function 
and providing the necessary three function arguments for data transfer. The function 
returns the desired component weight in pounds. 

SIGNIFICANT VARIABLES 


Significant variables employed in, and processed by function HZCVCW are defined as 


follows: 





Name 

Tm. 

I/O 

Dimension 

Description 

D 

R 

I 

1 

Port Diameter (Inches) 

P 

R 

I 

1 

Service Operating Pressure (Psia) 

IDV 

I 

I 

1 

Flow Control Component Weight Classifica- 
tion Index 

Cl 

R 

D 

4 

Weight Adjusting Factor for Pressures Less 
Than 1000 Psia 

C2 

R 

D 

4 

Weight Adjusting Factor for Pressures 
Greater Than 1000 Psia 


SUBPROGRAMS REFERENCED IN HZCVCW 


None referenced. 


SUBPROGRAMS REFERENCING HZCVCW 


Name Type Purpose Reference 

HZNCMP S Hydrazine System Configuration Analysis Page D-93 

LISTING REFERENCE PAGE 

The function listing will be found in Section D-3.0, page D-92. 

FLOW CHART 


No flow chart is presented for this subprogram. 
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.5 1.0 1.5 2.0 2.5 3.0 3-5 

VALVE SIZE (In. ) 


FIGURE D-1.5-3 BASIC HYDRAZINE VALVE WEIGHT DATA. 
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D-1.5.4 SUBROUTINE VGVSHE 
DESCRIPTION 


The subroutine computes the velocity of Helium gas flowing in a line fitting, tee or 
elbow, and the velocity of sound in the Helium gas at the temperature under considera- 
tion. It then computes a MACH Number and tests the Mach Number to see if it is 
greater than 0. 3 or greater than 0,95. If the Mach Number is greater than 0.3 but 
less than 0.95 the subroutine causes one asterisk to be printed beside the MACH Num- 
ber value printed in the system configuration output. If the MACH Number is greater 
than 0.95 then six asterisks are output in the configuration data output. If the MACH 
Number is less than 0.3, no asterisks are output and the column is blank. The purpose 
of the asterisks is to call attention to the MACH Number value which is directly related 
to line size (diameter) and fluid flow rate. 

For the range of temperature and pressure of interest in the hydrazine APU system, 
the Cp and C^ values for Helium change very little and are therefore treated as con- 
stants of an average value over the range of 500 to 600°R, and 500 to 3500 psia. If the 
subroutine is to be utilized over a wider temperature range, it will be necessary to 
incorporate look-up tables for Cp and C.^ as a function of temperature and density. 

The principal computation accomplished in the subroutine is the determination of the 
MACH Number for the Helium employed as the pressurant gas in the hydrazine APU 
system. 

Input data utilized by the subroutine is transmitted via access to common storage and 
through the calling arguments. The labeled common storage areas accessed by the 
subroutine are as follows: 

C0MM0N/CCNFIG/ 

C0MM0N/C0NST/ 
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VGVSHE MATHEMATICAL MODEL 

The equations employed by the subroutine for computing the MACH Number are standard 
handbook equations and need no further elaboration. No Math Model is presented for 
the subroutine. 

CALLING SEQUENCE 


The subroutine is initiated by a simple call statement with two calling arguments, the 
component configuration index and the fluid density. Data transfer to and from the 
routine is accomplished through the use of INCLUDE statements which bring in the 
appropriate PDF elements defining the required COMMON storage areas . 

SIGNIFICANT VARIABLES 


Significant variables employed in, and processed by, subroutine VGVSHE are defined 
as follows: 


Name 

Type 

I/O 

Dimension 

Description 

IDX 

I 

I 

1 

Configuration Table Index 

RH0 

R 

I 

1 

Fluid Density (Lb/Cu.Ft.) 

MFLG 

I 

C 

1 

MACH Number Flag 

WD0TN 

R 

I 

100 

Fluid Flow Rate (Lb/sec) 

PI 

R 

D 

1 

3.14159265 

DIAM 

R 

I 

100 

Line or Part Diameter (In. 

VG 

R 

C 

1 

Velocity of Fluid (Ft/Sec) 

CPGAS 

R 

D 

1 

Cp for Fluid (Btu/Lb-°R) 

CVGAS 

R 

D 

1 

C^ for Fluid (Btu/Lb-°F) 

GRAVTY 

R 

D 

1 

32.172 (Ft/Sec-Sec) 

TEMP 

R 

I 

100 

Fluid Temp. (°R) 

VS 

R 

C 

1 

Velocity of Sound (Ft/Sec) 

MACH 

R 

C 

100 

VG/VS 
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SUBPROGRAMS REFERENCED IN VGVSHE 

Name Type Purpose 

SQRT F Finds Square Root of Argument 

SUBPROGRAMS REFERENCING VGVSHE 

Name Type Purpose 

HZNCMP S System Configuration Analysis 

LISTING REFERENCE PAGE 

The subroutine listing will be found in Section D-3.0, page D-108. 

FLOW CHART 


Reference 
System Routine 

Reference 
Page D-93 


None presented. 
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d-1,6 mathematical models 

This subsection contains the math models for the major new subprograms employed in 
the Hydrazine APU system analysis. 

d-1,6.1 math model for subroutine HZAPU 

PURPOSE OF SUBROUTINE 


Subroutine HZAPU performs the basic system analysis computations for a Hydrazine 
fueled APU. The routine establishes the basic flow requirements for the system to a 
specified duty cycle and computes the total fuel requirements for the mission. The flow 
rate data generated is based on Rocketdyne specific fuel consumption versus percent of 
peak horsepower output data (Ref, D-1), and is corrected for the turbine inlet tempera- 
ture and turbine exhaust pressure, at the horsepower requirement specified in the 
input duty cycle intervals. The routine generates a fuel tank and pressurant supply 
history keyed to the specified duty cycle. After computing the system performance 
characteristics, the routine sizes the fuel and pressurant tankage and the fuel expul- 
sion device. The routine outputs the computed data and calls in subroutine HZNCMP 
to perform the sizing of the components specified in the system configuration. 

THE MATH MODEL EQUATIONS 


The equations and computational procedures required for the subroutine are given in 
the following subparagraphs. 

1. DATA REQUIREMENTS 

An important part of the analysis of the Hydrazine Auxiliary Power Unit Analyses is 
the determination of the propellant quantity for propellant tank sizing. It was assumed 
in these analyses that the required data will be collected by the APU contractor in a 
particular format. 
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The basic data required for the Hydrazine APU analysis is as follows: 

a. Percent of peak horsepower output vs. specific propellant consumption 
as a function of turbine exit pressure 

These data will be generated for specific: 

Turbine Maximum Horsepower 
Turbine Inlet Temperature — Reference 
Turbine Exit Pressure 
Turbine Pressure Ratio 

Typical data derived from Ref. D-1 are presented in Table D-2 of 
Section D-2. 0 as Data Table — 47. 

b. Gas generator exit temperature vs. fraction of design flowrate 

Typical data for the gas generator exit temperature (assumed to be the 
Turbine Inlet Temperature) will be found in Table D-2 (Section D-2.0) 
as Data Table — 49. 

c. Turbine inlet temperature vs. correction factor for specific propellant 
consumption 

Typical correction factor data will be found also in Table D-2 (Section 
D-2 . 0) as Data Table — 50 . 

d. Viscosity of hydrazine 

See Table D-2 (Section D-2.0), Data Table - 51. 

e. Viscosity of helium 

See Table D-2 (Section D-2.0), Data Table — 52. 
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2. SYMBOLS USED IN THE MATH MODEL 

The symbols employed in the Math Model are defined in the following list. (Note — 
Interval meams a Duty Cycle Interval) 


SYMBOL 


HP 


TOT 


HP 


RATED 


N 


APU 

HP. 


N 

op 

HP. 

1 

SPCR. 


SPCN. 


PT 


IN 


RATIO 


AMB. 

1 


Cl/ 


R. 


U) 


N. 

1 


GGXTM. 

1 

CFSPL. 

1 



‘^MAX 

FWC 

FWR 

FWTOT 


DEFINITION 

Total Horsepower Available 
APU Horsepower Rating 
Number of APU's Available 
% HP Recjuired in Interval (i) 

Number APU's operating 
HP Level in Interval (i) 

Rated Specific Fuel Consumption (SPC) in Interval (i) 
Nominal SPC in Interval (i) 

Inlet Turbine Pressure 

Turbine Pressure Ratio 

Ambient Altitude Pressure — Interval (i) 

Rated Flow Rate — Interval (i) 

Nominal Flow Rate — Interval (i) 

Gas Gen. Exit Temp. — Interval (i) 

SPC Correction Factor — Interval (i) 

Corrected Flow Rate — Interval (i) 

Maximum Flow Rate any Interval 
Total Fuel Consumed in all Intervals 
Weight of Fuel Reserves 
Total Fuel Loaded in Tank 
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SYMBOL 

V 

TNK 

"^TNK 

^TU 

WTPV 

WTED 

WTINS 

WTTOT 

F 

OUT 

F 

RM. 

1 

V 

'^DP 

V 

'^DPS 

V 

RM. 

1 

^HEB 

^HEP 

p 

HEB 

T 

HEB 

WH 

^HE. 

1 

WHEADD. 

1 

WHESUM 
^^HE^ MAX 


DEFINITION 

Density of Hydrazine 
Volume of Fuel Tank 
Surface Area of Fuel Tank 
Ultimate Stress - Tank Material 
Density of Tank Material 
Weight of Tank Pressure Vessel 
Weight of Expulsion Device 
Weight of Insulation 
Total Weight — Tank Assy. 

Fuel Withdrawn in Interval (i) 

Fuel Remaining in Interval (i) 

Voliune Depletion of Fuel — Interval (i) 

Volume Increase for Helium - Interval (i) 
Volume Fuel Remaining — Interval (i) 
Compressibility of Helium in Expulsion Device 
Density of Helium in Expulsion Device 
Pressure of Helium in Expulsion Device 
Temperature of Helium in Expulsion Device 
Weight Helium in Expulsion Device — Interval (i) 
Flow Rate of Helium in Interval (i) 

Weight Helium Added in Interval (i) 

Cum. Total of Helium by Weight for Interval (i) 
MAX Flow Rate — Helium in any Interval 
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SYMBOL 

WTOTPG 



^HE 

^HE 

WTOTHE 

V 

TKHE 

^TKHE 

°TKHE 

WTHETH 


DEFINITION 

Total Weight — Pressurant Gas System 
Compressibility of Helium in Storage Tank 
Temperature of Helium in Storage Tank 
Pressure of Helium in Storage Tank 
Density of Helium in Storage Tank 
Total Helium Including Reserves 
Volume of Helium Tank 
Surface Area of Helium Tank 
Diameter of Helium Tank 
Weight of Helium Tank 


3. THE CALCULATIONS 


A. CHARACTERIZE THE SYSTEM 


Total Horsepower Available — 


HP = HP X N 

n^TOT ""^RATED ^ APU 


Percent Power for Each Duty Cycle Period (i) — 

% HP, = (N^p X HP,)/HP^^ 

Rated Flow Rate for Each Duty Cycle Period (i) — 
SPCR, = * (PT,^. P^^„p, 100%) 

(f> - Data Table 47 


= SPCR. X HP. X N 
R. 1 1 op. 
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Nominal Flow Rate for Each Duty Cycle Period (i) — 
SPCN, = , (PTj^, % HP.) 

^ = Data Table — 47 


= SPCN. X HP. X N 
N. 1 1 op. 

1 


Percent of Full Flow the Duty Cycle Period (i) — 


1 1 


Gas Generator Exit Temperature Each Interval (i) — 

GGXTM. = 0 (% a;.) 

0 = Data Table — 49 

Correction Factor for Gas Generator Exit Temperature in Each Duty Cycle 
Period (i) — 

CFSPC. = <4 (GGXTMj) 

<t> = Data Table — 50 

Corrected Flow Rate in Each Interval (i) — 

Cj = u. X CFSPC. 
c, 1 1 


Maximum Flow Rate and Total Fuel Consumed — 

^MAX "" ^^c ^ 

1 

i = K CYCLE 
i = 1 

K CYCLE = Total Number of Duty Cycles 


FWC = 
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B. SIZE THE FUEL TANK 

Reserve Fuel Required — 

FWR = FWC X (% FR/100.0) 

Total Fuel Loaded 

FWTOT - FWC + FWR 


Density of Hydrazine Fuel in Tank — 

Pp - 78.77326- 0.03 T^ 

Tp = Fuel Temperature 

Density Equation was derived 
from data given in Ref. D-1. 



Surface Area of Fuel Tank — 


^TNK 


= 4.84 X V 


0.667 

TNK 


Ultimate Strength of Fuel Tank Material — 

(Tp, MATRL) 

= Data Table -22, 23, 24, 25, 26 
Depending Upon Material 
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Density of Tank Material — 


= <j) (Material Type) 


<t> = RH0L (An Imbedded Data Statement — 
See ST0DTA and PDF - CMATRL) 


Weight of the Fuel Tank Pressure Vessel — 

WTPV = 7000. X X X X 


Weight of the Expulsion Device in Fuel Tank — 
WTED = 0.14 X A^^j^ 

Sealing Law for Bladder Device 


Weight of Tank Insulation - 
Pj = <(» (Insulation Type) 


= RH0I (An Imbedded Data Statement ■ 
See ST0DTA and PDP - CMATRL) 


WTINS X Pj X X ^2 


Total Weight of Fuel Tank Assembly — 

WTtot = WTPV + WTED + WTINS 

SIZE THE PRESSURANT SYSTEM 

Helium Flow Rate Required Each Duty Cycle Interval — 

Set FrpQrj, = FWTOT initially — then do all computations 
loop for all duty cycle intervals. 

F„TTrr = w X DCYCLE. 

UU i c 1 

i 
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F = F — F 
TOT TOT OUT 


F = FTOT 

RMj 


V = F /P 
DP OUT^ F 


V = V + V 
DPS ''dps dp 


^RM. ^TNK ^DPS 
1 


(^ = S.R. ZFIND 
144. X Pjjgg 


HEB Zjjgg X Rjjg X Tjjgg 


W = P X V 
H ^HEB ^ ''dps 


Wre = (Wjj - WHE)/D CYCLE. 


WHEADO. = WHEADD,. 

1 1 


WHE = WD 


WHESUM = WHESUM + WHEADD,. 


^^HE^MAX ~ ^“hE.^ 


Weight of Pressurant System from Scaling Law • 
WTOTPG = 1.5 X WHESUM + 40.0 

D. SIZE THE HELIUM TANK 

Density of Helium in Tank — 

^HE "" "^ZEIND ^"^HE’ ^HE^ 
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3 ^ ^HE 

HE Zjjg X Rjjj, X Tj^j, 


Volume of Helium Tank — 


WTOTHE = WHESUM + 0.2 x WHESUM 
(Assume 20% Reserves) 


^ WTOTHE 
^TKHE - 


Surface Area of Helium Tank — 


''^TKHE 


= 4. 84 X 


V 


0.667 

TKHE 


Diameter of Helium Tank — 


D, 


TKHE 


L.9098 X FWTOT 
^HE 


0.333 



Weight of the Helium Tank — 

Ultimate Strength of Tank Material; 

^Tu = (The) 

<l> = Data Table- 22, 23, 24, 25, 26 
(Depending upon Material Type 
See PDF - CMATRL) 


Density of Tank Material; 

= <l> (Material Type) 


4> = RH0L (As Defined in B.) 


WTHETK = 7000. 


FWTOT 

X 

HE 


X P 


HE 



1 

1728 
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Weight at Helium Tank Insulation — 

Pj = 0 (Insulation Type) 

4 = RH0I (As Defined in B.) 

WTINSretk "" “^TKHE * * ^THK * 12 

D. MATH MODEL CONFIGURATION 

The system configuration concept upon which the Hydrazine APU Math 
Model is based is illustrated in Figure D-1,6-1. 


D-41 


LOCKHEED MISSILES 8e SPACE COMPANY 



LOCKHEED MISSILES 8c SPACE COMPANY 



FIGURE D-1.6-1 HYDRAZIEE APU CONFIGURATION SCBEMATIC 
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D-1.6.2 math model FOR SUBROUTINE HZNCMP 
PURPOSE OF SUBROUTINE 


The subroutine provides the same kinds of calculations for configuration analysis as 
does subroutine CMPCAL described in Appendix C. Revisions are chiefly hydrazine 
and helium properties data. The reader is referred to the math modal for CMPCAL 
given in Vol. V B-3 Appendix C, page C-110 for the general form of the configuration 
analysis. 
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Section D-2. 0 

HZ PROG SAMPLE PROBLEM 


To illustrate and checkout the hydrazine APU system analysis programs, a sample 
problem was assembled from data provided in Reference D-1 and D-2. 


n_9 


The Hydrazine APU Fuel Supply System employed in the problem is an ambient 
temperature helium pressurized, positive fuel expulsion type of fuel storage system . 
The expulsion device employed is an elastomeric type bladder assumed to be non- 
permeable to helium. All components involves in the catalytic breakdown and gasi- 
fication of the hydrazine are considered to be part of a GFE-APU. (Ref D-2) Hence, 
the program essentially treats a storage and fuel delivery system using data provided 
by the APU contractor. 

The system configuration employed in the sample problem is illustrated in Fig. D-1. 6-1. 
D-2. 2 SAMPLE PROBLEM INPUT DATA 

Conversion of the system characterization data derived from Reference D-1 and D-2 
into the problem input data deck was accomplished in the manner previously described 
in Sections 1. 5 and 2. 0 of Vol. V B-1. 


The new data tables required for the Hydrazine A PU analysis were constructed in the 
manner previously described in Section 1.5.3 of Vol. V B-1. 

A listing of the sample problem input data deck is given in Table D-1. The list is 
organized as a "DATA" file called "HZAPUDATA. ".permiting the placement of the 
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input deck into mass storage for repetitive use. Changes to the data can then be 
effected through the use of "change cards". Similarly, a listing of the data tables 
employed by the program is provided in Table D-2. Again the list is organized as a 
DATA file, with a file name of "HZTABDATA. " The file contains eleven tables. 


D-2. 3 SAMPLE PROBLEM DATA DECK SETUP 


Setup for the data input decks may be accomplished in the following two ways. 

a) Assuming the input data deck and data table deck are to entered as cards 
and the program is an file, the deck would be: 


@ RUN 
@ LID 
@ ASG, A 
@ COPY, P 
@ FREE 
@ PRT, T 
@ XQT 


HZPROG. 
HZPROG. , TPF$. 
HZPROG. 

TPF$. 


@ 

@ 


USER I. D. CARD 
TITLE CARD 

TABLE ECHO CONTROL CARD 
DATA TABLE DECK (GOES HERE) 
SYSTEM DEFINITION CARD 
DATA DECK INPUT DATA CARDS 
PMD, BARE 
FIN 


(Note that a blank card must end the data table deck set) 

b) Assuming that input data deck and data table deck are both in storage in DATA 
files and "HZPR0G. " is a program file, the run deck would be: 

@ RUN 
@ LID 

@ASG, A HZPR0G. 
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@ COPY, P 
@ FREE 
@ PRT, T 
@ASG, A 
@ASG, A 
@ XQT 
@ADD, P 
@ PMD, BARE 
@ FIN 


HZPR0G. , TPF$ 

HZ PROG. 

/ 

TPF$ 

HZAPUDATA. 

HZTABDATA. 

HZTABDATA. 
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TABLE D 

0DATA,!L 
DATA006- 
000001 
000002 
000001 
000004 
OOOOOS 
OOOOOh 
000007 
000008 
000009 
000010 
0000 I I 
0000 I 2 
000011 
oooom 

OOOOIS 
000016 
000017 
0000 I 8 
000019 
000020 
000021 
000022 
000021 
000024 
00002S 
000026 
000027 
000028 
000029 
OOOOTO 
000011 
0000T2 
000011 
000014 
OOOOIS 
000016 
000017 
000018 
000019 
000040 
000041 
000042 
000041 
000044 
00004S 
000046 
000047 
000048 
000049 
OOOOSO 
OOOOS I 
0000S2 
OOOOSl 
OOOOS4 

ooooss 


-1 HYDRAZINE APU DATA INPUT DECK SET UP AS A DATA FILE 
HZAPUDATA. 

RUHLMSCI8 06/08-1 I I2SI42 

USERS NAME 6211 104 1021S 


TEST EASE FOR HYDRAZINE APU PROGRAM CHECKOUT 


RADO. 

10 

p 

1 1 
HZTABDATA. 








HZN-APII 

SUPCRITICAL 


LAST CARD 




000000000000 

GAS 

1 

2 

0 






HZ-LI8 

CONFIG 1 

TRBINF 0 

1 

0 






APU-I 

2 

LINE 

in 

1 

0 

1 

24. 

1. 

S 

1. 70. 

LNOI 

1 

valve 

21 

1 

0 

1 

100. 




IVOI 

4 

LINE 

10 

1 

0 

1 

10. 

1. 

S 

1. TO. 

LN02 

B 

TEE 

11 

1 

0 

1 

20. 




FTOI 

6 

LINE 

10 

1 

0 

1 

10. 

1 . 

S 

1 . TO. 

IMOl 

7 

VALVE 

21 

1 

0 

1 

100. 




SVOI 

8 

LINE 

10 

1 

0 

1 

20. 

1 . 

S 

1 . 70. 

LN04 

9 

TANK 

0 

1 

0 

1 



6 

2. 10. 

TKOI 

10 

GAS 

2 

1 

0 






HF-GAS 

1 1 

BLAO 

0 

1 

0 

1 





RLOl 

12 

LINE 

10 

1 

0 

1 

40. 

.2S 

8 

1. 

LMII 

11 

TEE 

11 

1 

0 

1 

20. 




FTI 1 

14 

LINE 

10 

1 

0 

1 

20. 

.2S 

8 

1. 

LNI2 

IS 

VALVE 

11 

1 

0 

1 

100. 




SV02 

16 

LINE 

10 

1 

0 

1 

24. 

.2S 

8 

1 . 

LNll 

17 

TEE 

11 

1 

0 

1 

20. 




FTI2 

18 

LINE 

10 

1 

0 

1 

10. 

.2S 

a 


LNI4 

19 

REG 

12 

1 

0 

1 

194. 




PROI 

20 

LINE 

10 

1 

0 

1 

10. 

.2S 

8 

1. 

LNIS 

21 

VALVE 

11 

1 

0 

1 

100. 




IV02 

22 

LINE 

10 

1 

0 

1 

12. 

.2S 

8 

1. 

LMI6. 

21 

CONTRL 11 

1 

0 

1 

900. 




OROI 

24 

LINE 

10 

1 

0 

1 

12. 

.2S 

8 

1. 

LNI7 

2S 

TEE 

11 

1 

0 

1 

20. 




FTIl 

26 

LINE 

10 

1 

0 

1 

10. 

.2S 

8 

1. 

LMie 

27 

TANK 

0 

1 

0 

s 



6 

1. 10. 

TK02 

28 

END 

lO.S 


0. 


1 


S6.4 

14.7 


EN0CFG29 
OCYCLE 1 


1 .s 


■ 0. 


1 


S6.4 

S.9 


2 


7,0 


0. 


1 


S7.0 

.14 


1 


s.o 


0. 


1 


S7.0 

.001 


4 


2.0 


0. 


1 


S6. 1 

-.001 


S 


4,0 

9900. 


1 


40. 1 

.0001 


6 


26.0 


0. 


1 


40. 1 

.01 


7 


9.0 


0. 


1 


42.0 

6.0 


8 


1.0 : 


0. 


I 

112.6 

10.11 


9 


20.0 


0. 


1 


71.1 

14.7 


10 




■ 1 . 







ENDINPUT 

1 



2S0. 


600. 

20. 


10. 

1000. 

APUIN t 

1 

1 

S 

1 

2 






STOTK HZ 


S20. 

600. 


S20. 

600. 


TOO. 

.1 

2. 


1 . 


s. 







• 


10. 









• 

1 

1 

6 

s 

2 






STOTK — 


S20. ■ 

1000. 


S20. 1000. 

ISOO. 

.4 

1 . 


0. 


, 2. 







• 


10. 









• 

1 

0 
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SDATit IL 


HZTABOATA. 








OATAOOA- 

RLIBLMSCI8 

06/08-1 1 1 lOlOS 








000001 

FTU OF 

121/147 ST. STEEL 

2 

1 


22 




000002 

EFFECT 

OF temperature on 

THE TENSILE 

strength 

OF 

121/147 

stainless steel 

000001 

REF. SEC.R-LMSC A4RI608i 

PAGE 8. 

1.1-8 






000004 










OOOOOS 

TEMPERATURE (P) ULT. STRENGTH 

(PSD 






000006 

14 

1 2 








000007 

16.7 

266SU0. 

S4.7 


2SI000. 


IS9.7 


207000. 

000008 

2S4 , 7 

i 71000 . 

1S4.7 


141000. 


4S4.7 


121000. 

000004 

SS4.7 

1 PBOOO. 

6S4.7 


41000. 


8S4.7 


7S000. 

0000 1 0 

I0S4.7 

70000. 

I2S4.7 


66000. 


I4S4.7 


61000. 

0000 1 1 

I6S4.7 

SOOOO. 

I8S4.7 


12000. 





000012 

ftu of 

22I4-T87 alum. 

2 

1 


21 




0000 1 1 

EFFECT 

OF 7FMPFHATURE ON 

THE TENSILE 

STRENGTH 

OF 

22I4-T87 

aluminum 

000014 

REF. SEC.8-LMSC A46l608t 

PAGE 8. 

1 .1-8 






0000 IS 










000016 

temperature (R) UUT. strength 

IPS!) 






000017 

16 

1 2 








0000 1 8 

16.7 

44000. 

100.0 


82400. 


ISO.O 


76000. 

000014 

200.0 

72000. 

2SO.O 


68S00. ■ 


100.0 


67800. 

000020 

ISO.O 

67000. 

400.0 


66100. 


4S0.0 


6S000. 

00002 1 

SOO.O 

61800. 

SSO.O 


62000. 


600.0 


60000. 

000022 

6S0. 

S8U00. 

8S4.7 


18400. 


I0S4.7 


I660U. 

000021 

1 2S4.7 

6400. 








000024 

FTU OF 

606I-T6 ALUMINUM 

2 

1 


24’ 




00002S 

EFFECT 

OF temperature on 

THE TENSILE 

strength 

OF 

606I-T6 

aluminum alloy 

000026 

REF. MIL HANOROOK -S 








000027 










000028 

temper/ 

•Tvnc (n) wuT^STRtNGTH 

ipsn 






000024 

11 

1 1 








000010 

16.7 

61840. 

100,0 


S7110. 


ISO.O 


S1140. 

000031 

200.0 

S06I0. 

2S0.0 


48184. 


100,0 


46810. 

000012 

ISO.O 

4S646. 

400.0 


44440. 


4S0.0 


41848, 

000011 

SOO.O 

42840. 

SSO.O 


4(496. 


600.0 


40(S2. 

000014 

6S0.0 

18SS6. 








OOOOIS 

FTU OF 

INCONEL-718 

2 

1 


2S 




000016 

EFFECT 

OF temperature on 

THE tensile 

strength 

OF 

inconel- 

718 


000017 

REF. MIL HANDBOOK -S. 








000018 










000014 

temperature (R) ult. strength 

(PSD 






000040 

11 

1 1 








00004 1 

16.7 

214600. 

100.0 


211660. 


ISO.O 


210240. 

000042 

200.0 

206100. 

2SO.O 


201240. 


100,0 


146200. 

000041 

ISO.O 

141140. 

400.0 


184000. 


4S0.0 


I8S400. 

000044 

SOO.O 

182(60. 

SSO.O 


IT4460. 


600.0 


177100. 

00004S 

6S0.0 

I7SI40. 








000046 

FTU OF 

TI-6AL-4V 

2 

1 


26 




000047 

EFFECT 

OF temperature on 

THE TENSILE 

STRENGTH 

OF 

titanium 

TI 

-6AL-4V 

000048 

REF. MIL HANDBOOK -S. 








000044 










OOOOSO 

TEMPERATURE (R) UlT. STRENGTH 

IPSI) 






nooos 1 

1 1 

1 1 








0000S2 

16.7 

288120. 

100. 


261600. 


(So. 


244480. 

OOOOSl 

200.0 

226880. 

2S0. 


212800. 


100. 


200460. 

0000S4 

ISO.O 

1 40720. 

400, 


18(280. 


4S0. 


171120. 

ooooss 

SOO.O 

I6S280. 

SSO. 


ISB720. 


600. 


IS4240. 

0000S6 

6S0.0 

I4S600. 
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0000S7 

HZ4PU -HP VS SPC TABLE 

S 6 

97 



0000S8 

*** 






0000S9 

** This tarlf presents 

peak horsepower vs SPECIFIC PROPELLANT •• 

000060 

** CONSUMPTION AS A FUNCTION OF TUPRINE INLET PRESSURE. 

TURBINE ** 

000061 

** PRESSURE 

RATIO, TURRINE OUTLET 

PRESSURE. THE 

oata is 

MODELED ** 

000062 

** FROM THE 

ROCKETOYNE 

DESIGN handbook (R-8887) 

(PRELIMI 

NARY) ** 

00006T 

*** 






000069 

PTIM( I) 


9 300. 

900. 

600. 

1000. 

00006“; 

PRAT( I ) 


9 S. 

10. 

20. 

90. 

000066 

PTOUT( I 1 


9 0. 

10. 

19.7 

20. 

000067 

PERCENT HORSEPOWER SPC 





000068 

9 1 

2 





000069 

.OS 

7.70 

.10 

6.82 

.IS 

6. SO 

000070 

.20 

6.36 

.30 

6.20 

.90 

6. 1 3 

000071 

.60 

6. OS 

.80 

6.00 

1.00 

S.96 

000072 

9 1 

2 





000073 

• OS 

11.7 

.10 

9.6 

.IS 

8.3 

000079 

.20 

7.6S 

.30 

6.8S 

.90 

6.96 

00007“; 

.60 

6. IS 

.80 

6. OS 

1.00 

S.99 

000076 

9 1 

2 





000077 

.07S 

1 1 .S 

.10 

10.6 

.IS 

9.32 

000078 

.20 

8.93 

.10 

7.98 

.40 

6.90 

000079 

.60 

6.38 

.80 

6. 19 

1.00 

6.09 

000080 

8 1 

2 





000081 

.10 

1 1.9 

.IS 

10.18 

.20 

9.23 

000082 

.30 

8,13 

.90 

7.92 

.60 

6.70 

000083 

.80 

6.3S 

1 .00 

6. IS 



000089 

9 1 

2 





00008S 

.OS 

6.S7 

.10 

S.88 

.20 

S.SO 

000086 

.30 

S.9I 

.90 

S.3S 

.SO 

S.3I 

000087 

.60 

S.30 

.80 

S.2S 

1 .00 

S.2I 

000088 

9 1 

2 





000089 

.07S 

12.9 

.10 

10.3 

.20 

7.S 

000090 

.30 

6.S9 

.90 

6.06 

.SO 

S.80 

00009 1 

.60 

S.6I 

.80 

S.90 

1 .00 

S.3I 

000092 

9 1 

2 





000093 

.10 

12.9 

.IS 

10. OS 

.20 

9.7S 

000099 

.30 

7.38 

.90 

6.68 

.SO 

6.26 

00009S 

.60 

6.0 

.80 

S.67 

1.00 

S.9S 

000096 

9 1 

2 





000097 

. IS 

12. OS 

.20 

10. 2S 

.2S 

9.2 

000098 

.30 

8.3 

.90 

7.3S 

.SO 

6.8 

000099 

.60 

6.9S 

.80 

S.9S 

1.00 

S.60 

000100 

10 1 

2 





OOOIOI 

.OS 

6.27 

.10 

S.SS 

.IS 

S.30 

000 1 02 

.20 

S.20 

.30 

S. IS 

.90 

S. 10 

000103 

.SO 

S.06 

.60 

S.09 

.80 

9.96 

000109 

1 .00 

9.87 





000 1 OS 

1 0 1 

2 





000106 

.7S 

12. S 

.10 

1 1 .S 

.IS 

9.SS 

000107 

.20 

8.39 

.30 

6.93 

.40 

6.20 

000108 

.SO 

S.8 

.60 

S.SS 

.80 

S.28 

000109 

1.00 

S.06 





0001 10 

8 1 

2 





0001 1 1 

.IS 

1 1.7 

.20 

10. 1 

.10 

8.19 

0001 IP 

.90 . 

7. IS 

.SO 

6.S 

,60 

6.08 

0001 1 3 

.80 

S.60 

1.00 

S.3S 



0001 19 

7 1 

2 
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OOOIIS 

.20 

12. IS 

.10 

S.SS 

.90 

6.22 

0001 16 

.SO 

7.11 

.60 

6.8 

.80 

6.1 1 

0001 17 

1 .00 

S.70 





000 1 1 8 

1 1 

1 2 





000 1 1 9 

.ns 

S.S 

.10 

S.06 

.IS 

9.8S 

OOOlPO 

.20 

9.6S 

.2S 

9.SS 

.10 

9. SO 

000 1 2 1 

.90 

9.9S 

.SO 

9.90 

.60 

9.11 

000122 

.80 

9.29 

1 .00 

9.28 



0001 2T 

10 

1 2 





000129 

. i 0 

12.8 

.IS 

9.6 

.20 

8.S 

000 1 2S 

.2S 

7.7 

.10 

7.1 

.90 

6.8 

000 1 2ft 

.SO 

6.9 

.60 

6.2S 

.80 

6.06 

000127 

1.00 

S.8 





000 1 28 

■ 9 

1 2 





OOO 1 29 

. IS 

12. S 

.20 

10.9 

.2S 

9.1 

000 1 10 

.10 

8.9S 

.90 

7.S2 

.SO 

7.1 

OOOIll 

.60 

6.6 

.80 

6.27 

1.00 

S.98 

000112 

8 

1 2 





000111 

.20 

19.6 

.2S 

12.9 

.10 

10.9 

000 1 m 

.90 

9.8S 

.SO 

7. SO 

.60 

7.2 

OOOIIS 

.80 

6.6 

1 .00 

6.29 



000116 

in 

1 2 





000 1 17 

.OS 

7.6 

.10 

6.8 

.IS 

6.S 

000118 

.20 

6. IS 

.10 

6.21 

.90 

6.12 

000119 

.SO 

6.06 

.60 

6.09 

.80 

6.02 

000190 

1 .00 

6.0 





000191 

10 

1 2 





000192 

.OS 

1 1 . IS 

.10 

6.7 

.IS 

7.6 

000191 

.20 

7. 1 

.10 

6.S 

.90 

6.2 

1 (ill 
V W U 1 T 

e A 
« TV 

6 . 07 

• 60 

6.09 

,Bo 

6.02 

000I9S 

1.00 

6.0 





00019ft 

10 

1 2 





000197 

.07S 

1 1 .0 

.10 

9.7S 

.IS 

8.9 

000198 

.20 

7.7 

.10 

6.9 

.90 

6.SS 

000199 

.SO 

6.12 

.60 

6.20 

.80 

6.07 

OOOISO 

1 .00 

6.0 





OOOISI 

9 

1 2 





000 1 S2 

.10 

1 1 . 1 

.IS 

9.12 

.20 

8.9 

OOOISI 

.10 

7.9 

.90 

6.87 

.SO 

6.S6 

000 1 S9 

.60 

6.19 

.80 

6.12 

1 .00 

6.0 

000 ISS 

10 

1 2 





000 1 S6 

.OS 

6.6 

.10 

S.9 

.IS 

S.61 

000IS7 

.20 

S.S 

.10 

S.9 

.90 

S.19 

000 1 S8 

.SO 

S.l 

.60 

S.27 

.80 

S.2S 

OOOIS9 

1.00 

S.21 





000160 

10 

1 2 





000161 

.07S 

10. 7S 

.10 

8.8 

.IS 

7.9 

000162 

.20 

6.7S 

.10 

6.07 

.90 

S.7 

000161 

.SO 

S.SS 

.60 

S.99 

.80 

S.IS 

000169 

1 .00 

S.27 





000I6S 

10 

1 2 





000 1 6’6 

.09 

1 1 .S 

.10 

10. s 

.IS 

S.SS 

000167 

.20 

7.6 

.10 

6.6 

.90 

6.06 

000168 

.SO ■ 

S.8I 

.60 

S.69 

.80 

S.SO 

000169 

1.00 

S.16 





000170 

9 

1 2 





000171 

.10 

12.0 

.IS 

9.9 

.20 

8.61 

000 1 72 

.10 

7.27 

,90 ■ 

6.SS 

.SO 

6.20 


D-50 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


TABLE D-2 (CONT'D) DATA TABLES FOR HYDRAZINE APU • PR0BLEM - SET UP AS A DATA FILE 


000173 

.60 

6.0 

.80 

S.T3 

1.00 

S.Sl 

000 ITH 

1 1 

1 2 





000 ITS 

.OS 

6.0 

.10 

S.3S 

.IS 

S. 17 

000IT6 

.20 

9.98 

.2S 

9.9 

.10 

9.8S 

000177 

.90 

9.80 

.SO 

9.76 

.60 

9.7SS 

000178 

.80 

9.7S 

1.00 

9.79 



000179 

10 

1 2 





oooieo 

.10 

1 1 .OS 

.IS 

8. 7 

.20 

7.S 

000181 

.2S 

6.73 

.30 

6.27 

.90 

S.7 

000182 

.SO 

S.38 

.60 

S.I7 

.80 

9.91 

000183 

1.00 

9.8 





000189 

10 

1 2 





000I8S 

.IBS 

1 1 .6 

.IS 

10. 7S 

.20 

9.1 

000 1 86 

.2S 

8.06 

.30 

7.3 

.90 

6.9 

000187 

.SO 

S.9I 

.60 

S.S 

.80 

S.26 

000188 

1.00 

S.O 





000189 

9 

1 2 





000190 

.IS 

12.2 

.20 

10.9 

.2S 

9.6S 

000191 

.30 

8.63 

.90 

7.3 

.SO 

6.61 

000192 

.60 

6.18 

.80 

S.S7 

1.00 

S.20 

000193 

1 1 

1 2 





000199 

.ns 

S.S 

.10 

S.06 

.IS 

9.8S 

000I9S 

.20 

9.6S 

.2S 

9.SS 

.10 

9. SO 

000196 

.90 

9.9S ■ 

.SO 

9.90 

.60 

9.11 

000197 

.80 

9.29 

1.00 

9.28 



000198 

1 1 

1 2 





000199 

.07S 

13.7 

.10 

10.8 

.IS 

8.2 

000200 

.20 

7. 1 

.2S 

6.S 

.10 

6.1 

000201 

.90 

S.6 

.SO 

S.9 

.60 

S.2S 

000202 

.80 

S.06 

1.00 

9.8 



000203 

10 

1 2 





000209 

.10 

13.9 

. IS 

10. 9S 

.20 

8.8 

00020S 

.2S 

7.7S 

.30 

7. OS 

.90 

6.12 

000206 

.SO 

S.9 

.60 

S.S 

.80 

S. 17 

000207 

1 .00 

9.98 





000208 

9 

1 2 





000209 

.IS 

13. 9S 

.20 

12.9 

.2S 

10.9 

000210 

.30 

9.1 

.90 

8.2S 

.SO 

6.1 

0002 1 1 

.60 

S.99 

.80 

S.S 

1.00 

S.21 

000212 

10 

1 2 





000213 

.OS 

7.S 

.10 

6.7 

.IS 

6.9 

000219 

.20 

6.2S 

.30 

6.11 

.90 

6.02 

0002IS 

.SO 

S.96 

.60 

S.99 

.80 

S.S2 

000216 

1.00 

S.90 





0002 1 7 

10 

1 2 





000218 

.OS 

9.7S 

.10 

. 8.0 

.IS 

7.1 

000219 

.20 

6.9 

.30 

6.9 

.10 

6. IS 

000220 

.SO 

6. OS 

.60 

6.09 

.80 

6.02 

000221 

1 .00 

6.0 





000222 

10 

1 2 





000223 

.OS 

II. 1 

.10 

9.0 

.IS 

8.0 

000229 

.20 

7.9 

.30 

6.8 

.90 

6.9S 

00022S 

.SO 

6.3 

.60 

6.2 

.80 

6. OS 

000226 

1.00 

6.02 





000227 

10 

1 2 





000228 

.OS 

12. 7S 

.to 

10.0 

.IS 

8.8 

000229 

.20 

8. OS 

.30 

7.2S 

.90 

6.8 

000230 

.SO 

6.S 

.60 

6.39 

.80 

6. 1 1 
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000231 

1.00 

6.06 





000232 

1 1 

1 2 





000233 

.09 

6.69 

.079 

6.19 

. 10 

9.9 

000234 

. 19 

9.64 

.20 

9.91 

.29 

9.49 

00023 S 

.30 

9.38 

.40 

9.30 

.60 

9.29 

000236 

.80 

9.23 

1.00 

9.20 



000237 

1 1 

1 2 





000238 

.09 

10.3 

.079 

8.4 

.10 

7.4 

000239 

. 19 

6.99 

.20 

6 . 1 

.29 

9.81 

000240 

.30 

9.69 

.40 

9.42 

.60 

9.29 

00024 1 

.80 

9.29 

( .00 

9.22 



000242 

1 1 

1 2 





000241 

.06 

11.39 

.079 

10.0 

.10 

8.6 

000244 

. 19 

7.2 

.20 

6.6 

.29 

6.23 

00024 S 

.30 

9.97 

.40 

9.70 

.60 

9.40 

000246 

. 80 

9.30 

1 .00 

9.24 



000247 

10 

1 2 





000248 

.079 

11.19 

.10 

9.79 

.19 

8.03 

000249 

.20 

7.23 

.29 

6.72 

,30 

6.4 

000290 

.40 

9.99 

.60 

9.99 

.80 

9.39 

000291 

1.00 

9.26 





000292 

1 1 

1 2 





000293 

.09 

6.0 

.079 

9.6 

. 10 

9.39 

000294 

. 19 

9.12 

.20 

4.98 

.29 

4.90 

000299 

.30 

4.89 

.40 

4.80 

.60 

4.79 

000296 

.80 

4.72 

1 .00 

4.70 



000297 

1 1 

1 2 





000290 

.06 

H .0 

,079 

10.19 

.10 

8.3 

000299 

.19 

6.89 

.20 

6.39 

.29 

9.70 

000260 

.10 

9.43 

.40 

9 . 1 

.60 

4.8 

000261 

.80 

4.71 

1 .00 

4.71 



000262 

10 

1 2 





000263 

.079 

12.2 

.10 

10.3 

.19 

8.1 

000264 

.20 

7.12 

.29 

6.46 

.30 

6.0 

000269 

.90 

9.9 

.60 

9.0 

.80 

4.89 

000266 

1 .00 

4.78 





000267 

10 

1 2 





000268 

.079 

12.4 

.10 

11.3 

.19 

9.9 

000269 

.20 

8.12 

.29 

7.29 

.10 

6.69 

000270 

.40 

6.0 

.60 

9.39 

.80 

9.08 

000271 

1 .00 

4.9 





000272 

10 

1 2 





000273 

.09 

9.69 

.10 

9.00 

.19 

4.79 

000274 

.20 

4.68 

.29 

4.60 

.30 

4.96 

000279 

.40 

4.90 

.60 

4.49 

.80 

4.39 

000276 

1.00 

4.19 





000277 

10 

1 2 





000278 

.079 

12.9 

.10 

9.79 

.19 

7.9 

000279 

.20 

6.9 

.29 

9.9 

.30 

9.9 

000280 

.40 

9 . 1 

.60 

4.79 

.80 

4.6 

00028 1 

1.00 

4.4 





000282 

9 

1 2 





000281 

.10 

12.2 

.19 

9.9 

.20 

8.0 

000284 

.29 

7.09 

.30 

6.49 

.40 

9.79 

000209 

.60 

9.0 

.80 

4.7 

1.00 

4.99 

000286 

9 

1 2 





000287 

. 129 

12.29 

.19 

11.3 

.20 

9.9 

000288 

.29 

8.1 

.30 

7.9 

.40 

6.9 
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TABLE D-2 (CONT'D) DATA TABLES FOR HYDRAZINE APU PR0BLEM _ SET UP AS A DATA FILE. 


000289 

.60 

S.9S 

.80 

S.O 

1.00 . 

9.76 

000290 

10 

1 2 





00029 1 

.OS 

7.9 

.10 

6.6 

.IS 

6.3 

000292 

.20 

6. IS 

.30 

6.01 

.90 

S.9S 

00029T 

.SO 

S.92 

.60 

S.90 

.80 

S.87 

000299 

1 .00 

S.8S 





00029S 

10 

1 2 





000296 

.OS 

8.0 

.10 

6.BS 

.IS 

6.96 

000297 

.20 

6.2S 

.30 

6.06 

.90 

6.00 

000298 

.SO 

S.96 

.60 

S.92 

.00 

S.89 

000299 

1 .00 

S.86 





OOOTOO 

10 

1 2 





OOOTOI 

.OS 

9.0 

.10 

7.23 

.IS 

6.73 

000302 

.20 

6.99 

.20 

6.13 

.90 

6.02 

000303 

.SO 

S.98 

.60 

S.99 

.80 

S.90 

000309 

1 .00 

S.87 





00030S 

10 

1 2 





000306 

.OS 

10.0 

.10 

7.73 

.IS 

7.06 

000307 

.20 

6.71 

.20 

6.30 

.90 

6.09 

000308 

.SO 

6.00 

.60 

S.96 

.80 

S.9I 

000309 

1 .00 

S.88 





000310 

1 1 

1 2 





00031 1 

.ns 

6.6S 

.07S 

6.1 

.10 

S.87 

000312 

.IS 

S.6S 

.20 

S.SO 

.2S 

S.93 

000313 

.30 

S.38 

.90 

S.32 

.60 

S.28 

000319 

.80 

S.2S 

1 .00 

S.2I 



00031'; 

1 1 

1 2 





000316 

.OS 

8.9 

.07S 

7.1 

.10 

6.S 

000317 

.IS 

S.9 

.20 

S.7 

.2S 

S.SS 

000318 

.30 

S.92 

.90 

S.3S 

.60 

S.29 

000319 

.80 

S.26 

1 .00 

S.22 



000320 

1 1 

1 2 





00032 1 

.OS 

9.6 

.07S 

8.0 

.10 

7. IS 

000322 

.IS 

6.3 

.20 

S.9 


S.7 

000323 

.30 

S.SS 

.90 

S.86 

.60 

S.30 

000329 

.80 

S.27 

1.00 

S.23 



00032S 

1 1 

1 2 





000326 

.OS 

1 1 .0 

.07S 

8.8 

.10 

7.9 

000327 

.IS 

6. as 

.20 

6.3 

.2S 

6.0 

000328 

.30 

S.7S 

.90 

S.S 

.60 

S.3I 

000329 

.80 

S.28 

1.00 

S.29 



000330 

10 

1 2 





000331 

.OS 

6.0 

.07S 

S.6 

.10 

S.3S 

000332 

.IS 

S. 1 

.20 

9.97 

.30 

9.89 

000333 

.90 

9.77 

.60 

9.72 

.80 

9.70 

000339 

1.00 

9.67 





00033B 

10 

I 2 





000336 

.OS 

9.2 

.07S 

7.2S 

.10 

6.S 

000337 

.IS 

S.7 

.20 

S.3 

.30 

9.9 

000338 

.90 

9.78 

.60 

9.73 

.80 

9.71 

000339 

1.00 

9.68 





000390 

10 

1 2 





000391 

.06 

10. S 

.07S 

9. OS 

.10 

7.6 

000392 

. IS 

■ 6.9 

.20 

S.O 

.30 

S.2S 

000393 

.90 

9.97 

.60 

9.89 

.80 

9.76 

000399 

1.00 

9.69 





00039'j 

9 

1 2 





000396 

.07S 

11.6 

.10 

9.0 

.IS 

7. 1 
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TABLE D- 

-2 (CONT'D) DATA TABLES FOR 

HYDRAZINE APU 

PROBLEM - SET UP AS A DATA FILE 

000147 

.20 

6.4 

.10 


4.6 

.40 

4.14 

000148 

.60 

4.89 

.80 


4.78 

1.00 

4.70 

000149 

1 1 

1 2 






OOOISO 

.OS 

4.4 

.074 


4.06 

.10 

4.84 

OOOISI 

.IS 

4.64 

.20 


4.44 

.24 

4.40 

OOOIS? 

.10 

4.44 

.40 


4.40 

.60 

4.11 

OOOISI 

.80 

0.29 

1 .00 


4.28 



0001S4 

1 1 

1 2 






OOOISS 

.OS 

12.24 

.074 


9. 24 

.10 

7.74 

nnn 3C5 

1 e 

• • T 

6.1 

.20 


4.6 

.24 

4,14 

0001S7 

. 10 

4.84 

.40 


4.46 

.60 

4.42 

0001S8 

.80 

4.18 

1.00 


4.12 



0001S9 

10 

1 2 






000160 

.074 

(2.24 

.10 


9.9 

.14 

7.6 

000161 

.20 

6.4 

.24 


4.9 

.10 

4.44 

000162 

.40 

4.97 

.60 


4.48 

.80 

4.42 

000161 

1 .00 

4.16 






000164 

10 

1 2 






00016S 

.084 

12.24 

.10 


1 1 .4 

. IS 

9.24 

000166 

.20 

7.74 

.24 


6.8 

.10 

6.2 

000167 

.40 

S.44 

.60 


4.81 

.80 

4.44 

000168 

1 .00 

4.40 






000169 

HYDP47 7NE 

VAPOP PRFSS. 

2 

4 

48 



000170 

*«* 







000171 

* HYORAZINE VAPOR 

PRESSURE AS 

A 

function of 

temperature. 


000172 

» PF-FEPENCE - ROCKETOVNE DESIGN 

HANDBOOK. R. 

-8887 


000171 

*** 







000174 

temp. (OEG 

.PI VAp.PRES. (PSIAt 





00017S 

1 M 

1 2 






000176 

M S 0 • 

.019 

492. 


.042 

4in. 

. 1 1 

000177 

420. 

. 16 

440. 


.11 

460. 

.61 

000178 

480. 

l.ll 

600. 


1.92 

620. 

1.10 

000179 

640. 

s.oo 

660. 


7.64 

680. 1 

1.10 

000180 

700. 

16.40 

720. 


21.90 



00018 1 

GAS. gen. exit temp. 

2 

4 

49 



000182 

*** OAS 

GENERATOR EXIT TEMPERATURE 

: AS A FUNCTION OF 


000181 

* FRACTION OF DESIGN FLOWRATE 

• 

REFERENCE - 

ROCKETDVNE 


000184 

X DESIGN handbook 

R-8887 





00018S 

it* 







000186 

(WDOT/WDOT 

DES.) TEMP. 

(DEG.R) 





000187 

14 

I 2 






000188 

.024 

1660. 

.092 


1760. 

. 140 

1811. 

000189 

.200 

1 849. 

.100 


1900. 

.400 

1940. 

000190 

.400 

1971 . 

.600 


1996. 

.700 

2014. 

00019 1 

.800 

2011. 

1.000 


2060. 

1.200 

2084. 

000192 

1 .400 

2106. 

1.600 


2124. 



000191 

TURRN. IN. temp. CORP, FACT 

. 2 

4 

40 



000194 

»** turbine inlet temperature correction factor for specific 

00019S 

• propellant consumption. Reference • rocketdvne design 


000196 

* HANDROOK R-RR87. 






000197 








000198 

T.I.T. (OEG-R) SPCITI/SPCIREF) 





000199 

17 

1 2 






000400 

1 660. 

1.127 

1710. 


1 . 10 

1760, 

1.087 

00040 1 

18 10. 

1 .067 

I860. 


1.04 

1910. 

1 .014 

000402 

1 060. 

I .0 1 9 

2010. 


1 .004 

2060. 

.992 

000401 

2110. 

.9797 

2160. 


.9674 

2210. 

.9464 

000404 

2260. 

.947 

2110. 


.9184 

2160. 

.911 
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TABLE D-2 (CONT'D) 


OOOM I 7 
OOOM I 8 
DOOM I 8 
0001420 


DATA TABLES FOR HYDRAZINE APU PROBLEM - SET UP AS A DATA FILE 

.9I7S 


OOO^OB 2MI0. .9379 2980. 

0001406 VISCOSITY OF HYORAZINE 2 7 SI 

000907 *** VISCOSITY OF HYDRAZINE VERSUS TEHPERATIIRE FROH 

000908 * ROCFETOYNE OESIGN HANDBOOK R-889T. 

000909 *** 

000910 temperature (DEG.R) VISCOSITY (UB/S-FT) 


00091 1 

1 1 

1 2 








000912 

992. 

8.870 

E.9 

SOO. 

8. I6S 

E.9 

SID. 

7.SI7 

E.9 

000917 

S20. 

6.89S 

E.9 

S70. 

6.769 

E.9 

S90. 

S.90I 

E.9 

000919 

SSO. 

S.9B9 

E.9 

S60. 

S.IOT 

E.9 

S70. 

9.771 

E.9 

0009IS 

seo. 

9.788 

E.9 

SSO. 

7.767 

E.9 




000916 

VISCOSITY 

OF HELIUM 


7 

9 

S2 





*** VISCOSITY OF HELIUM VS. PRESSURE AND TEMPERATURE 

* FROM 1000 TO SOOO PSIA AND SOO TO 600 DEG.RANKINE 

* REF, NRS-TN-622. 


000921 

PRESSURE 


S SOO. 

1000. 

2000. 

7000. 

000922 

TEMP, (DEG. R) 

viscosity 




000927 

7 1 

2 





000929 

900, 

.00001 1 1 

SOO. 

.0000128 

600. 

.0000I9S 

00092S 

7 1 

2 





000926 

900. 

.00001 12 

SOO. 

.0000129 

600. 

.0000161 

000927 

7 1 

2 





000928 

900. 

.00001 IS 

SOO. 

.0000171 

600. 

.0000197 

000929 

7 1 

2 





000970 

900. 

,00001 17 

SOO. 

.0000172 

600. 

.0000198 

000971 

7 1 

2 





000972 

900. 

.00001 19 

SOO. 

.0000179 

600. 

,0000199 


9000. 


000977 


END TABLES 


BFIN 
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D-2.4 SAMPLE PROBLEM DATA OUTPUT 


This subsection presents the entire output for the Hydrazine APU sample problem. 

The output, which follows, is indexed by page number in the header-box top left corner. 
This index will be used in describing the several output sections produced in the run. 


D- 2 . 4 . 1 Output De s c ripti on 


Page 1 T able Data Input Summary — 

Lists the tables loaded for the program run. 

Page 2 System Input Verification — 

Verifies the system name called for on Astern Definition 
Card. 


Pages 3, 4 System Configuration and Duty Cycle Data — 

Echo of data in Input Data Deck. 

Pages 5, 6 Echo of Major System Component Data — 

From Input Data Deck. 

Start of Program Calculations; 

Page 7 Computed Hydrazine APU Parameters — 

Characterizes Fuel Storage Subsystem. 

Presents tank size and weight data based upon detailed 
calculation of fluid requirements over integrated mission 
duty cycle span. 


Page 8 Characterizes Pressurant Gas Storage Subsystem 

Presents pressurant tank size and weight data based 
upon detailed calculation of fluid requirements over 
the integrated mission duty cycle span. 

Pages 9, 10 Computer System Configuration Parameters — 

Presents computed temperature, pressure, flowrate, flow 
condition and weight for each component item in system 
configuration. 

Page 11 Component Weight Summary and System Weight Summary — 

Presents a summary of individual component weights and 
corresponding insulation weights. Presents subsystem and 
systems weight totals. 


The following pages present the detailed sample problem output. 
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NAME R.F.HAUSMAN ********************* PACE I 

DEPT 6211 * THE INTEfiRATEO MATH MODEL * DATE 08 JUN 71 

EXT. 102TS * * TIME lot INI 16 

BLO, I ON * ATN107 • CASE I 


TEST CASE FOR HYDRAZINE APJ PR06RAM CHECKOUT 
TABLE INPUT SUMMARY 


TABLE TITLE OF TABLE 

NUMBER 


number of 

DIMENSIONS 


number of 
subtables 


number of 
WORDS 




«1 

-a 


22 FTU OF 12I/1B7 ST. STEEL 

2 

1 

12 

21 FTU OF 22I9-T87 ALUM. 

2 

1 

16 

2N FTU OF 606I-T6 ALUMINUM 

2 

1 

10 

2S FTU OF INCONEL-718 

2 

1 

10 

26 FTU OF TI-6AL-MV 

2 

1 

10 

M7 HZAPU -HP VS SPC TABLE 

S 

6M 

Into 

MB HYDRAZINE VAPOR PRESS. 

2 


72 

N9 GAS. GEN. EXIT TEMP. 

2 

1 

72 

SO TUPBN. IN. TEMP. CORR. FACT. 

2 

1 

78 

SI VISCOSITY OF HYDRAZINE 

2 

1 

26 

S2 VISCOSITY OF HELIUM 

7 

S 

S2 


total table storage s I bob 


name 

R.F.HAUSMAN 

* * 4 


k * * 

PAGE 

2 

dept 

6211 

« 

THE integrated MATH MODEL 

* 

date 

08 UUN 77 

EXT. 

7027S 

« 


* 

TIME 

lOl IM|12 

BLO. 

« * 1 

lOM 

* 

* * 4 

AimOT 

^«**************1 

* 

k * * 

CASE 

* * 4 

1 


TEST CASE FOR HYDRAZINE APU PROGRAM CHECKOUT 


*** YOU HAVE called FOR THE SYSTEM HZN-APU 
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NAME 

R.F.HAIISMAN * 

******** 

****** 

****** 

PAGE 1 






DEPT 

6211 

* 

THE integrated MATH MODEL * 

DATE 08 JUN 71 






ext. 

1021'i 

* 



* 

time I0:IRi12 






pld. 

1 OR 

* 


AT*M07 

* 

CASE 1 






« * * 

* * * 

* * * * 

******** 

****** 

****** 

*******4 

* 







TEST CASE FOR HYOPaMME 

APU PROGRAM 

checkout 









***** 

SYSTEM C 

0 N F I 0 U 

RATION 

***** 



COMP 

COMP 

FUNC. 

numb. 

NUMG. 

MaTRL. 

FLOW FRICTION 

LINE length 

line 

insulation 

insulation 

NO. layers 

MAME 

CODE 

TYPE 

OPEH. 

STBY. 

type 

COEFICIEMT 

OR L-DVEP-D 

diameter 

type 

thickness 

INSULATION 

gas 

HZ-LIO 


2 

0 

0 

.onooonoo 

.00 

.on 

0 

.00 

.0 

TPBINE 

APlJ-l 

0 

1 

0 

0 

.00000000 

.00 

.00 

0 

.00 

.0 

LINE 

LNQI 

10 

1 

0 

1 

.00000000 

2R.00 

1.00 

s 

1.00 

70.0 

VALVE 

IVOI 

21 

1 

0 

1 

.00000000 

100.00 

.00 

0 

.00 

.0 

LIME 

LN02 

10 

1 

0 

1 

.00000000 

10.00 

1 .00 

s 

1 .00 

70.0 

TEE 

FTO 1 

11 

1 

0 

1 

.00000000 

20.00 

.00 

0 

.00 

.0 

LIME 

LNOT 

10 

1 

0 

1 

.00000000 

10.00 

1 .00 

s 

1 .00 

70.0 

VALVE 

SVO 1 

21 

1 

0 

1 

.00000000 

100.00 

.00 

0 

.00 

.0 

LINE 

LNON 

10 

1 

0 

1 

.00000000 

20.00 

1 .00 

s 

1.00 

70.0 

tank 

TKOI 

0 

1 

0 

1 

.00000000 

.00 

.00 

6 

2.00 

10.0 

GAS 

HE-GAS 

2 

1 

0 

0 

,00000000 

.00 

.00 

0 

.00 

.0 

8LA0 

RLOl 

0 

1 

0 

1 

.00000000 

.00 

,00 

0 

.00 

.0 

LIME 

LNI 1 

10 

1 

0 

1 

.00000000 

RO.OO 

.2S 

8 

1.00 

.0 

TEE 

FT( 1 

11 


0 

1 

.00000000 

20.00 

.00 

0 

.00 

.0 

LINE 

LMI2 

10 


0 

1 

.00000000 

20,00 

.2S 

A 

1 .00 

.0 

valve 

SV02 

11 


0 

1 

.00000000 

100.00 

.00 

0 

,00 

.0 

LINE 

LN1 1 

1 0 


0 

1 

.00000000 

2R.00 

.2S 

8 

1 .00 

.0 

TEE 

FTI2 

11 


0 

1 

.00000000 

20.00 

.00 

0 

.00 

.0 

LINE 

LN 1 R 

10 

1 

0 

1 

.00000000 

10.00 

.2S 

8 

1 .00 

.0 

REG 

PROI 

12 


0 

1 

,00000000 

IRR.OO 

.00 

0 

.00 

.0 

LINE 

LNIS 

10 

1 

0 

1 

.00000000 

10.00 

.2S 

R 

1.00 

.0 

VALVE 

IVD2 

11 

1 

0 

1 

.00000000 

1 00.00 

.00 

0 

.00 

.0 

LINE 

LNI 6 

10 

1 

0 

1 

.00000000 

12.00 

.2S 

R 

1 .00 

.0 

CONTRL 

ORO 1 

11 

1 

0 

1 

.00000000 

900.00 

.00 

n 

.00 

.0 

LINE 

LN 1 7 

1 0 

1 

0 

1 

.00000000 

12.00 

• 2S 

8 

1 .00 

.0 

TEE 

FTII 

1 1 

1 

0 

1 

.ooooonon 

20.00 

.no 

n 

.00 

.0 

LIME 

LNI 8 

1 0 

1 

0 

1 

.00000000 

10.00 

.2S 

R 

1 .00 

.0 

TANK 

TK02 

0 

1 

0 

s 

.00000000 

.00 

.00 

6 

1 .00 

10.0 

END 


0 

0 

0 

0 

.00000000 

.00 

.00 

0 

.00 

.0 
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NAME 

R.F.HAUSMAN 

* * i 

k***************i 

k * * 

PAGE 

4 

DEPT 

6211 

* 

THE integrated MATH MODEL 

* 

DATE 

OB JUN 71 

EXT. 

1021S 

* 


* 

TIME 

10! mill 

BLO. 

lOM 


AT-JIOT 

* 

CASE 

1 


TEST CASE FOR HVDRATINE APO PROGRAM CHECKOUT 


***** duty cycle OATA 


OPER.TIME 

non-operating 

MIB-OEGRAD. 

UNITS OPEB. 

horsepower 

AMR. pressure 

POWER-KW 

REpRES.TIHE 

. iosoonoo+02 

.00000000 

.00000000 

1 

•S6400000*02 

. 14700000*02 

.00000000 

.00000000 

. isoQooon+oi 

.00000000 

.00000000 

1 

.S6400000*02 

.S9000000*0l 

.00000000 

,00000000 

.70000000*01 

.00000000 

.00000000 

1 

.S7000000*02 

.14000000*00 

.00000000 

.00000000 

.SOOOOOOO+OI 

.00000000 

.00000000 

1 

.S7000000*02 

.10000000-02 

.00000000 

.00000000 

.20000000*01 

.00000000 

.00000000 

1 

.S6l00000*02 

. 10000000-02 

.00000000 

.00000000 

.40000000*01 

.99000000*04 

.00000000 

1 

.40100000*02 

.10000000-01 

.00000000 

.00000000 

.26000000*02 

.00000000 

.00000000 

( 

.40100000*02 

.10000000-01 

.00000000 

.00000000 

.90000000*01 

.00000000 

.00000000 

1 

.4?000000*02 

.60000000*01 

.00000000 

.00000000 

.10000000*01 

.00000000 

.00000000 

1 

. 1 1260000*01 

.101 10000*02 

.00000000 

.00000000 

.20000000*02 

.00000000 

.00000000 

1 

.71100000*02 

. 14700000*02 

.00000000 

.00000000 

.00000000 

-. 10000000*01 

.00000000 

0 

.00000000 

.00000000 

.00000000 

.00000000 
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R.F.HAUSHAN ********************* PAGE S 

PEPT 6211 * THE INTEGRATED HATH MODEL • DATE 08 JUN 71 

ext. 1021<5 * * TIME lOl INtll 

SLO. lOM * ATMlOT * CASE I 

test case for HYDRAZINE APU PROGRAM CHECKOUT 

***** hydrazine APU DATA ***** 


I NUMIIER OF APU UNITS 
• 2SOOQOOO + 01 H0R51EP0WER PER UNIT 
. 60000000+01 TURfllNE INLET PRESSURE 
,20000000+0? TURniNE PRESSURE RATIO 
.10000000+02 PEP-CENT RESERVE FUEL 
.10000000+04 PRESSliRANT GAS PRESSURE 



name r.f.hausman ********** A********** page 6 

OEPT 6211 * THE INTEGRATED MATH MODEL * DATE 08 JUN 71 

EXT. 1021S • * TIME lOl I4lll 

BLO. 104 * AT4107 • CASE I 

*************************************** 
TEST CASE FOB HYDRAZINE APU PROGRAM CHECKOUT 

***** tank data ***** 


I I NUMBER OPERATING (NOP) 

1 I ACQUISITION TYPE 

S 6 INSULATION TYPE 

t S MATERIAL type 

2 2 PPFSSURIZATION TYPE 

.S2000000+01 .S2000000+01 INITIAL TEMPERATURE (R) 

.60000000+01 .10000000+0+ initial pressure 

•S2000000+01 .S2000000+01 PPESSURANT GAS TEMP. (R) 

.60000000+01 ,10000000+04 OPERATING PRESS. (P5IA) 

.70000000+03 .lSOOOPOO+04 VENTING PRESSURE 

.10000000+00 .40000000+01 HEAT FLUX ( BTU/HR-FT»*2 ) 

.20000000+01 .10000000+01 INSULATION THICKNESS 

.00000000 .00000000 INITIAL FLUID LOAD (OPT) 

.10000000+01 .00000000 PERCENT ULLAGE VOLUME 

.SOOOOOOO+OI .20000000+01 MAXIMUM DIAMETER (FT) 

.00000000 .00000000 HEX outlet TEMP. (R) 

.00000000 .00000000 HEX DELTA PRESS. (PSIA) 

.00000000 .00000000 PUMP delta press. (PSIA) 

.00000000 .00000000 GAS GEN OUTLET TEMP (R) 

.00000000 .00000000 P SUB C OF GAS GEN (PSIA 

.00000000 .00000000 GAS GEN MIXTURE RATIO 

.10000000+02 .10000000+02 NUMBER INSULATION LAYERS 

I TANK weight. CONPIGURATION OPTION CONSIDERED 

0 number of tank shapes in configuration 
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NAME R.F.HAUSMAN ********************* p4oE 7 

PEPT 63 n * THE INTEGRATED MATH MODEL • DATE 08 JUN 71 

EXT. 1021S * * TIME lOtlRtlN 

BLD. ION * ATHIOT * CASE I 


TEST CASE FOR HYDRAZINE APU PROGRAM CHECKOUT 
*** INITIATE program AnD CHARACTERIZE CONSUMER PARAMETERS *** 


********** INITIAL HYDRAZINE APU PROGRAM CALCULATIONS 


parameter 

cycle - 1 

CYClE-2 

CYClE-1 

CYCLE-9 


CYClE-S 

CYCLE -6 

cycle-7 

cycle -8 

CYCLE-9 

cycle-io 

COMPUTE THE 

PCT. HP REQD.-EACH duty 

CYCLE- AND TOTAL HP 

available 






PCTHP = 
tothpr= 

22.S60 

2S0.00 

22.S60 

22.800 

22.800 


22.9M0 

16.090 

16.090 

16.800 

SI. 090 

28.990 

COMPUTE the 

SPECIFIC 

FUEL CONSUMPTION AND FLOWRATES FOR 

the 

rated AND 

NOMINAL CONDITIONS 




SPCR s 
WOOTR s 
SPCN = 
WO : 
PCWOOTs 

M.7R0 

|S.9|67 

6.782 

6.17S2 

12.009 

M.706 

|9,6o7S 

S.S75 

S. 2 M 06 

26.727 

9.700 

|S.S8m7 

9.971 

9.7229 

29.111 

9.700 

|">.S811 

9.91S 

9.688S 

21 . 9 m 


9.700 

l*’.S 8 l 1 

9.9m| 

9.6199 

21.S9I 

9.700 

I’.SSlI 

s.osi 

1.9029 

17.179 

9.700 

|9.S6m 

S.091 

1.901S 

17.180 

9.706 
(9 . 6081 
6.010 
9.220’ 
21 .S26 

9.712 
|9.6l|8 
9.91 1 
I0.8S27 
SS.28I 

9.780 

|9.9|67 

6.199 

7.2801 

16. SSI 

COMPUTE THE 

corrected 

and max, flowrates FOR 

THE APU UNITS 







GGXTM s 
CFSPC s 
woe : 

1908. ON 
1.0196 
6.S9S9 

1881.11 
t .092S 
S.4616 

1869.97 

1.0968 

R.Vmir 

1869.10 
1 .0971 
9.9q91 


1867.11 

I.D977 

9.8901 

1810.09 

1.0602 

1.6071 

1810.11 

1.0602 

1.6082 

I8S6.78 
I.OSI 1 
9.916S 

1989.20 

1.0122 

I0.98S1 

1926.21 
1 .0291 
7.9922 


WD0T(MAX(s IP.98S12 LB, PER MINUTE 
WOOTI = ,181089 LR.PEP SECOND 

COMPUTE THE TOTAL FUEL CONSUMED AND THE TOTAL LOADED 


TOTAL PROPELLANT CONSUMED = M77.2SS LBS. OF HYDRAZINE. 

TOTAL PROPELLANT LOADED = S2R.980 

COMPUTE THE FUEL TANK CHARACTERISTIC PARAMETERS 


DENSITY OF HYDRAZINE 
VOLUME OF STORAGE TANK 
SURFACE AREA OF TANK 
TANK PRESS. VESSEL WOT. 
TANK BLADDER ASSY WGT. 
TOTAL TANK ASSY, WEIGHT 
TANK INSULATION HEIGHT 


61.17126 
8.R76R 
20. I 1SS 
89.NNS9 
2.8190 
92.26R8 
1.9800 
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NAMF R.F.HAUSMAN **»**»*»**n***»****** PAGE 8 

nEPT (SZn * THE integrated math model * date 08 JUN 73 

EXT, lOaiS • * time I0j|M|34 

BLO. 104 * AT4T07 * CASE I 

********************************* <»****** 
TEST CASE FOR HYDRAZINE APU PROGRAM CHECKOUT 
********** HYDRAZINE APU CALCULATIONS CONTINUED ****•**»** 


Parameter 

CYCLE-1 

CYCLE-2 

cycle-3 

cycle-n 

CYCLE-S 

CYCLE-6 

cycle-t 

cycle-8 

CYcLE-9 

CYCLE-10 

COMPUTE the 

PRESSUPANT 

GAS PARAMETERS 








WPREM = 

4SS.723 

447. S28 

412.924 

388.377 

378.697 

364.269 

270. 4S4 

230. S2S 

(97.S69 

47.72S 

VOLrEM = 

7.3801 

7.2S03 

6.7026 

6.3140 

6. |6o8 

S.9324 

4.4474 

3.8(S3 

3.2936 

.92(7 

WOOTHE = 

.043710 

.036206 

.0327S9 

.032S33 

.03207S 

.023904 

.0239( ( 

.029400 

.072798 

.0496S0 

wheaoo = 

.4SB9S8 

•0S4310 

.2283(6 

. (62667 

.064(49 

.o9S6(6 

.62(696 

.264604 

.2(8398 

.992998 


MAX, HELIUM FLOWRATE s .001213 

O TOTAL HELIUM CONSUMED Z 3.162704 

a> 

to TOTAL HELIUM LOAOEO = 3.7RS24S 

compute the PRESSUPANT gas system weight from the SCALING LAW 


PRESS. SAS SYSTEM WGT. = 44.74406 

COMPUTE the PRESSUPANT GAS TANK WEIGHT BY ACTUAL VALUES 

DENSITY OF HELIUM IN TANK = 1.890716 

VOL. OF helium tank 2,0073 

SURF. AREA OF HELIUM TANK 7.6981 

DIAMETER OF HELIUM TANK 18.7724 

WEIGHT OF HELIUM TANK 4I.S043 

HELIUM TANK INSULATION WGT, = .4170 
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name 

R.F.HAUSMAN 

* * 4 


k * * 

Page 

« 

DEPT 

62 n 

* 

the integrated math model 

* 

DATE 

OB JUN 71 

EXT. 

T02TS 

* 


* 

TIME 

I0| miTH 

8L0. 

it * 

lOU 

»**«*«* 

* 

* * 1 

atntot 

* 

k * * 

CASE 

* * < 

k * * * * 1 


TEST CASE FOR HYDRAZIME APU PROGRAM CHECKOUT 


*** Summary of computed system configuration parameters •** 



F 

CODE 

FT 

NO 

NS 

IS 

IDX 

G 

GS 

FCOEF 

L/D 

OlAM 

ithick 

PRES 

TEMP 

hdot 

height 

Mach 


GAS 

HZ-LIO 

1 

2 

0 

1 

1 

1 

2 

.000000 

.0000 

.0000 

.0000 

.0000 

.00 

.0000 

.000 

.0000000 

a 

1 

trb 

APU-I 

0 

t 

0 

1 

2 

1 

2 

.000000 

.0000 

.0000 

.0000 

S80.0000 

S20.00 

. I8TI 

.000 

.0000000 

LIN 

LNOi 

0 

1 

0 

1 

1 

1 

2 

.0T9S9M 

24.0000 

1 .0000 

1.0000 

SfiO.OOlB 

S20t00 

.1811 

.41T 

.0000000 

03 

VAL 

IVOI 

1 

1 

0 

1 

N 

1 

2 

.0T9S9M 

100.0000 

1 .0000 

.0000 

S80.0094 

S20.00 

.1811 

I.SNI 

.0000000 

09 

LIN 

LN02 

0 

1 

0 

1 

S 

I 

2 

.0T9S9N 

10.0000 

1.0000 

1.0000 

S80.0I02 

S20.00 

.1811 

.182 

.0000000 


TEE 

FTOI 

t 

1 

0 

1 

6 

1 

2 

.0T9S9U 

20.0000 

1 .0000 

.0000 

SBO.OI IT 

S20>00 

.1811 

.08S 

.0000000 


LIN 

LNOT 

0 

1 

0 

1 

T 

( 

2 

.0T9S9U 

10.0000 

1.0000 

1.0000 

S80.0I2S 

S20.00 

.1811 

.182 

.0000000 


VAL 

SVOI 

1 

1 

0 

1 

8 

1 

2 

.0T9S9M 

100.0000 

l.onoo 

.0000 

S80.020I 

S20.00 

.1811 

1 .SMI 

.0000000 


LIN 

LNOM 

0 

1 

0 

1 

9 

t 

2 

.0T9S9M 

20.0000 

1.0000 

1 .Onoo 

SB0.02I6 

S20.00 

.1811 

.164 

.0000000 


tan 

TKOI 

0 

1 

0 

1 

10 

1 

2 

.000000 

.0000 

.0000 

2.0000 

600.0000 

S20.00 

.1811 

92.26S 

.0000000 


MFLAG 
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NAME R.F.HAIISMAN ********************* PAGE 10 
DEPT 6211 * THE INTEGRATED MATH MODEL * DATE 08 JUN T1 

EXT. 1021S * * time lOilNllS 

BLO. ION * ATNIOT * CASE I 

*************************************** 
TEST CASE FOP. HYDRAMNE APU PROGRAM CHECKOUT 

*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETERS - CONTD. *** 


F 

CODE 

FT 

NO 

NS 

IS 

loX 

G 

GS 

FCOEF 

L/0 

GAS 

HE-GAS 

2 

1 

0 

1 

1 1 

2 

1 

.000000 

.0000 

BLA 

BLOl 

0 

1 

0 

1 

12 

2 

1 

.000000 

.0000 

LIN 

LNI 1 

0 

1 

0 

1 

11 

2 

1 

.016SIN 

NO. 0000 

TEE 

FTI 1 

( 

1 

0 

1 

IN 

2 

1 

.OlftSIM 

20.0000 

LIN 

LNI 2 

0 

1 

0 

1 

IS 

2 

1 

.016SIN 

20.0000 

VAL 

SVQ2 

1 

1 

0 

1 

16 

2 

1 

.016SIM 

100.0000 

LIN 

LNI1 

0 

1 

0 

1 

17 

2 

1 

,oi6Sm 

2N.0000 

TEE 

FT|2 

1 

1 

0 

( 

IB 

2 

1 

.016SIU 

20.0000 

LIN 

LNIM 

0 

1 

0 

1 

|R 

2 

1 

.016SIU 

10.0000 

REG 

PROI 

2 

1 

0 

1 

20 

2 

1 

.016SIV 

1RN.0000 

LIN 

LNIS 

0 

1 

0 

1 

21 

2 

1 

.016720 

10.0000 

VAL 

IVQ2 

1 

1 

0 

1 

22 

2 

1 

.016720 

100.0000 

LIN 

LNI 6 

0 

1 

0 

1 

21 

2 

1 

.016720 

12.0000 

Con 

OROI 

1 

1 

0 

1 

2M 

2 

1 

.016720 

900.0000 

LIN 

LN|7 

0 

1 

0 

1 

2S 

2 

1 

.016720 

12.0000 

TEE 

FT 11 

1 

1 

0 

1 

26 

2 

1 

.016720 

20.0000 

LIN 

LNIS 

0 

1 

0 

1 

27 

2 

1 

.016720 

10.0000 

TAN 

TK02 

0 

1 

0 

1 

28 

2 

1 

.000000 

.0000 


OlAM ITHIcK PReS TEMP WdOT HEIGHT MAcH MFLAG 


.0000 

.0000 

.0000 

.00 

.0000 

.000 

.0000000 

.0000 

.0000 

600.0000 

S20.00 

.0012 

2.819 

.0000000 

.2S00 

1 .0000 

600.0101 

S20„00 

.0012 

.182 

.002S016 

.2S00 

.0000 

600.02IS 

S20.00 

.0012 

.OOS 

.002S916 

.2S00 

1.0000 

600.0110 

S20.00 

.0012 

.091 

.002S916 

.2S00 

.0000 

600.0N29 

S20.00 

.0012 

.818 

.002S91S 

.2SOO 

1.0000 

600.0SNM 

S20.00 

.0012 

.109 

.002S91S 

.2S00 

.0000 

600.0S67 

S20.00 

.0012 

.OOS 

.002S91N 

.2S00 

1 .0000 

600.06 IS 

S20.00 

.0012 

.0N6 

.002S91N 

.2S00 

.0000 

2009,0000 

S20.00 

.0012 

1.801 

.0000000 

.2S00 

1.0000 

2990.(1010 

S20.00 

.0012 

.080 

.000S7NS 

♦ 2S00 

.0000 

2900,0017 

S20.00 

.0012 

1.801 

.000S7US 

.2^00 

1 .0000 

2900. UONo 

S20.00 

,0012 

.096 

,nOO.;7Ns 

.2S00 

.0000 

2990.0288 

S20.00 

.0012 

1.801 

.000S7NS 

.2S00 

1.0000 

2900.010 1 

S20.00 

.0012 

.006 

.000S7NS 

.2SOO 

.0000 

2090.0106 

S20.00 

.0012 

.009 

.000S7NS 

.2S00 

1.0000 

29OO.01I6 

S20.00 

.0012 

.080 

.000S7NS 

.0000 

1.0000 

1000.0000 

S20.00 

.0012 

Nl .SON 

.0000000 


***** THE hydrazine APU CALCULATIONS HAVE BEEN COMPLETED ***** 
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NAME R.F.HAUSMAN 
DEPT 6211 

ext. 1021S 

BLD. 104 


THE INTEGPATED MATH MODEL 
ATmOT 


* PAGE I I 

* DATE 08 JUN 71 

* TIME I0lt4«16 

* CASE I 


TEST CASE FOR HYDRAZINE APU PROGRAM CHECKOUT 
**» component height summary *** 


...propellant... 


...HELIUM... 





COMPONENT 

INSULATION 



COMPONENT 

insulation 


COMPONENT 

CODE 

WT. (LBS) 

HT. (LBS) 

COMPONENT 

CODE 

HT. (LBS) 

HT. (LBS) 


LINE 

LNOI 

.417 

.019 

LINE 

LN| 1 

.182 

.120 


VALVE 

IVOI 

1 .S4I 

.000 . 

TEE 

FTI ) 

.OOS 

.000 


LINE 

LM02 

.182 

.016 . 

LINE 

LN|2 

.09) 

.060 


TEE 

FTOI 

.08S 

.000 . 

VALVE 

5V02 

.818 

.000 


LINE 

LNOI 

.IR2 

.016 

LINE 

LNI1 

.109 

.072 

0 

1 

VALVE 

SVOI 

1 .S4I 

.000 , 

TEE 

FT 12 

.DOS 

.000 

LINE 

LNOS 

.164 

.012 

LINE 

LNI4 

.046 

.010 

1 

o> 

TANK 

TKO( 

92.26S 

1.980 . 

REG 

PROI 

1 .801 

.000 

CJ1 





LINE 

LNIS 

.080 

.010 






VALVE 

IV02 

1 .801 

.000 






LINE 

LN|6 

.096 

.016 






CONTRL 

OROI 

1.801 

.000 






LINE 

LNI7 

.096 

.016 






TEE 

FTI1 

.009 

.000 






LINE 

LNIB 

.080 

.010 






TANK 

TK02 

41 .S04 

.417 


*•* COMPONENT HEIGHT SUMMARY TOTALS 


CONSUMER weight 

- 

LBS 

OXIOYZER SYSTEM 

WT 

. -LHS 

OXIO 

insulation 

WT 

- LBS 

FUEL 

SYSTEM HT. 

. 

LBS 

FUEL 

INSULATION 

WT 

- LBS 

total 

SYSTEM WT 

• 

LBS 


.OODOOD 

.96SR77+02 

.208296401 

.MBS447402 

.8109S1400 

. l48nS6401 


•FIN 
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Section D-3 

THE HYDRAZINE APU ANALYSIS PROGRAM (HZPR0G) 


D-3.1 PROGRAM LISTING 


The program listing presented in the following pages was produced using the EXEC-8 


LISTALL processor which lists a file in alphabetical order. Since the processor does 
not differentiate between subroutines, functions and Procedure Definition Processors 
(PDPs), each subprogram has been relabeled to clearly identify the type of symbolic 
listing presented. The alphabetical listing permits rapid list scanning when searching 
for a particular subprogram. 


The file "HZPR(2(G. " contains a total of sixty-eight FORTRAN elements of which thirty 
are Procedure Definition Processor elements and thirty- eight are subroutines, func- 
tions and the main driver routine. 


The listing contained in this subsection presents five PDP elements and nine FORTRAN 
subprograms of which four are new subprograms coded for the Hydrazine APU analysis. 
The other five subprograms and the five PDP elements are modified versions of the 
originals as previously listed in Appendix B. 


There are in the file, thirteen dummy elements, which are present only because it is 
simpler to dummy out a subprogram rather than change basic coding structure. The 


thirteen dummy elements are: 


ACCRES 

C0NSUM 

TANK 

ACQWT 

ECLSS 

TSIZEI 

APUFL0 

FUELCL 

WTACC 

APUSUB 

CMPCAL 


APUSUP 

LIQRES 


Other subprograms contained in the 

! "HZPR0G. " file are the following sixteen 


elements : 
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DIAG 

FINDR 

FIN TAB 

GETC0N 

INTAB 

LOCATE 


LWEIGHT 

MIPE 

q(UTPUT 

PAGE 

ST(2(C0N 

TCq(ND 


TEL 

YLGINT 

YLNTRP 

ZFIND 


Listings for these elements will be found in Appendix B along with the remaining 
twenty-five PDP elements. The file table of contents given in D-3.2 may be used to 
identify the remaining PDP elements. 

While symbolic listings are quite useful in xmderstanding the coding of a particular 
subprogram, it is recommended that the program user create and maintain a standard 
compiler listing output file, since the additional information provided by the compiler 
is very useful in troubleshooting and debugging changes to the basic coding. 

The program list file follows: 
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♦ PROCEDURE DEFINITION PROCESSOR CAPU 


61S7I7*TPF$. 

1 

2 
3 
M 

5 

6 

7 

8 
9 

i 0 
I I 
12 
I 3 
19 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 
3S 


S3 

S9 

ss 

56 

57 


CAPU 

CAPU* 

C 

C 

C 


PPOC 

PARAMETFP LAPU z 20 
REAL RK« MRGGCHf MRGGCO 


COMMON /CIAPU/ M ,NAPU tOFLPCPtPMR ,FMRg .HRR tMRGGCH, 

1 MRGGCO. PFH ,PF0 .PGG ,RRFP ,T0 .TDGGH .TOGGO .TENV . 

2 TFM .TFO ,TG .TIT .TME .TVM ,TVO .EOAPHS!. 

3 FQAP2( I 1,2) ,EQAP3( I I .2) .LAPUl ( 9 , 8 ) ,LAPU2 ( 9 , I I ) ,LAPU3(9, I | ) 

9, PR AT .PCRSflV.SPGpRS.WTBLAO.PTRBIN 


COMMON /CVAPU/KK(LAPUt, RR(LAPU), WD(LAPU), R (LAPU) 


CPE (LAPU) ,TTH( LAPU ),TTO( LAPU) ,WDA (LAPU 
woe ( LAPU 1 .won (LAPU ) , WOE ( LAPU ) , WDF (LAPU 
WO J( LAPU ) .W6H(LAPU),WTH(LAPU) , WTO (LAPU 
HTO(LAPU) . 

WORM (LAPU).WDRO (LAPU), PCTHP (LAPU 
,WGGO (LAPU).WDFC (LAPU), W6HC (LAPU 
.W08C (LAPU).WDCC (LAPU), WOEC (LaPU 
.DWOH (LAPU).DOonwH(LApUI, DOODWolLAPU 
,O|O00T(LAPU),O2HDOT(LAPU) , 020001 (LAPU 
, 0 3000T(L API) ),TTH2W0( LAPU ) , TTO2W0(LAPU 
, PC02W0I LAPU ),(32H0TC( LAPU ) , ORODTCILAPU 
.Q3O0 TC(LaPU),O9H0OT(LaPU), OSHDOT(LaPU 
.Q7oOoT(LApu).RHoCH2(LApU) . RHoC02(LApu 
.D00WT0(I.APU),TSIN (LAPU). CPH (LAPU 
,CSUBV0(LAPU),CSUBVH(LAPU) , PH102 (LAPU 
,QINTI<0(LAPU),QINTKH(LAPU), CPBH (LaPU 
.SPCR (LAPU).WOOTR (LAPU).SPCN (LAPU), 
.GGXTM(LAPU) .CFSPC (LAPU).WPREM (LAPU), 
.WHEAO(LAPU) .WDTHE (LAPU) 


TE(LAPU) , 
WDR(LAPU) , 
WOG(LAPU) , 
HTH(LAPU) , 

WG6H (LAPU) 
WGOC (LAPU) 
DELU (LAPU) 
QIHDOT(lAPU) 
Q3HD0T(LAPU| 
PCH2WD(LAPU) 
03HDTCILAPU) 
Q60D0T(LaPU) 
DQDWTH(LApU) 


). PHIM2 (LAPU) 
). WSUM (LAPU) 
PCWDOT(LAPU) 
VOLRM (LAPU) 


equivalence 

I (EQAPI (3),W0H 


(EQAPI ,TPF 
) • (EOAP I (9). WOT 


), (EQAPI (2), WOO ), 
), (EQAPI (S).WTBURN) 


36 


2, (EQAP2 

,WOCOMP ) 

. (EQAP2( 

l,2),WHC0MP) 

, (Eqappi 

2,1 ) ,WTGO 

), 

T7 


3 

(FQaP2( 

2,2),WTGH ) 

. (EQAP2( 

3,I),VT0 ) 

, (E0aP2( 

3,2),VTH 

), 

38 


9 

(FQAP2( 

9,I),AT0 ) 

, (EQAp2( 

9,2),ATH ) 

, (EQAP?( 

S, 1 ) ,WGTOT 

1, 

39 


S 

(E0AP2( 

S,2),WGTHT ) 

. (EQAP2( 

6,I),WVH02 ) 

, (E(3AP?( 

6,2) ,WVHH2 

)f 

90 


6 

(EQAP2( 

7,I),WR0 ) 

, (EQAP2( 

7,2),WRH ) 

, (EOAPpI 

8, 1 ) ,WAO 

), 

91 


7 

(EQAP2( 

R,2),WAH ) 

, (EQAP2( 

9,I),WS0 ) 

, (EOAPPI 

9,2) ,WSH 

), 

92 


8 

( FqAp 2( 10,1) ,WRAn ) 

, (EqAp2( 10,2) ,WRAH ) 

, ( EqAP? (11,1) ,WOTOT 

) , 

93 


9 

(EQAP2( 1 1 ,21 .WHTOT ) 






99 

C 









9S 


EQUIVALENCE 

(EQAP3 

,TGGCO ) 

, (EQAP3( 

1 ,2) ,TGGCH 

)« 

96 


1 

(EQAPT( 

2,I),WTGG0 ) 

, (EQAPT( 

2,2),WTGGH ),(EQAPT( 

3, 1 ),AREAT0), 

97 


2 

(EQAPT( 

3,2) ,AREATH) 

,(EQAP8( 

9,|),VST0 ) 

, (EOAPK 

9,2),VSTH 

), 

B8 


3 

(EQAP3( 

S, 1 ) jQTOOOT) 

,(EQAP3( 

S,2),0THD0T) 

, (E0aP3( 

6,1) ,WSVHO 

), 

99 


9 

(EQAP3( 

6,2),WSVHH ) 

, 


(EqaP3( 

7,2) ,WSVH 

), 

SO 


S 

(EQAP3( 

8, 1 ) ,WPTT0 ) 

, (EQAP3( 

8,2),WPTTH ) 

, (EQAPK 

9,1 ),WSRO 

)« 

SI 


6 

(EQAPK 

9.2),WSRH ) 

, (EGAP8( |0, 1 ) ,WSOB ) 

,(EQAP3l 

|0,2) ,WSHB 

) , 

S2 


7 

(EQAP3( 11,1) .WRSAO ) 

, (EQAP3( 1 1 ,2) ,WRSAH ) 





***** 

* NAPU - 

* HPR 


NUMBER OF APU UNITS 
HORSEPOWER RATING EACH APU 
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******** C»PU ******** 


SB C 

59 C 

60 C 

61 C 

62 C 

63 C 

64 C 

6 5 C 

66 C 

67 C 

68 C 

69 C 

70 C 

71 C 

72 C 

73 C 

74 C 

75 C 

76 C 

77 C 

78 C 

79 C 

80 C 

81 C 

82 C 

83 C 

84 C 

as C 

86 C 

87 C 

88 C 

89 C 

90 C 

91 C 

92 C 

93 C 

94 C 

95 C 

96 C 

97 C 

98 C 

99 C 

100 c 

101 c 

102 C 

103 C 

10 4 C 

105 C 

106 C 

107 C 

lOa c 

109 C 

110 c 

II I c 

112 C 

113 C 

114 C 

115 C 


* FMP - APU TURBINE MIXTURE RATIO 

* PGG - APU GAS GEN. INLET GAS PRESSURE 

* TIT - TURBINE INLET TEMP 

* TO - exhaust TEMP FOR HEAT EXChANGEP 

* FMBG - fuel mixture-ratio FOR SUPPLEMENTAL GAS GEN. 

* PFH - FINAL H2 TANK PRESSURE 

* PFO - FINAL 02 tank PRESSURE 

* tfh - final h2 tank temperature 

* TFO - FINAL 02 TANK TEMPERATURE 

* TG - TEMP. OF exhaust PRODUCTS - SUPPL. GAS GEN. 

* OELCP - oelta-p of Tank circulating pump 

* KK - cop. FACTOR-REF. PROP, FLOW RATE FOR 2060 TIT, 

* RR . REF, OROP. PLOW RATE (LBS/MIN) 

* WO - delivered flow rate over interval (I)(LBS/MIN) 

* 0 - HEAT OF COMEUSTION PROOUCTS (BTU/LB) 

* TE - APU TURBINE EXHAUST TEMP. 

* CPE - EXHAUST SPEC.HT. ATITE AND FmR I 

* TTH - TEMP, OF H2 IN TANK DURING INTfRVAL(I) 

* TTO - TEMP. OF 02 IN TANK DURING INTFRVAL(I) 

* WOA - APU exhaust flow THRU H2-HEX (aCCUM TO GAS GEN) 

* WOB - APU EXHAUST PLOW THRU H2-HEX (TAnk TO ACCUMl 

* WDC - APU EXHAUST FLOW THRU HP.TANK HEX 

■* WDD - APU exhaust FLOW THRU 02-HEX (ACCUM TO GAS GEN) 

* WOF - APU exhaust flow thru 02-hex (TANK TO ACCUM) 

■* WDF » APU EXHAUST FLOW THRU 02-TANK HEX 

* WDG - APU EXHAUST FLOW THRU H2-HEX ( SlIRC , ACUM-GAS GEN) 

* WOJ - APU EXHAUST FLOW THRU 02-HEX ( Si IRC , ACUM-GAS GEN) 

* WGH - REF.H2 flowrate TO SUPPLEMENTAL GAS GEN. 

* WTH - H2 FLOW TO ACCUM DURING INTERVAL (I) 

* WTO - 02 FLOW TO ACCUM DURING INTERVAL (II 

* HTH - enthalpy OF H2 IN TANK AT INTERVAL! I) 

* HTO - enthalpy of 02 IN TANK AT INTERVAL! I) 

* WDRH - WGT.RATE OF H2 FLOW I NG- 1 NTER VAl ( I) • (LBS/MlN). 

* WORD - WGT.RATE OF 02 FLOW I NG- 1 NTER VaL ( I ) * (LBS/MIN) 

* PCTHP - PERCENT horsepower REOD, - 1 NTERVAL ( I ) 

* WGGH - H2 FLOW RATE TO COND.GAS GENS .- 1 NTERVAL ( I) 

* WGGO - 02 flow rate TO COND.GAS GFnS . - I NTERVAL ( I ) 

* WDFC - corrected WOF(I) FOR FLOW RATE CHANGE 

* WGHC - REF.H2 FLOW TO SUPPLEMENTAL GAS GEN. 

* WGOC - REF, 02 FLOW TO SUPPLEMENTAL GaS GEN. 

* WDPC - CORRECTED VALUES OF HEX EXHAUST REQMTS . ( WDB ( I ) ) 

* wDcc - corrected Values of hex exhaust reqmts, ( woc( i ) ) 

* WDEC - corrected VALUES OF HEX EXHAUST REQMTS .( WOE ( I ) ) 

* OELH - TOTAL ENTHALPY INCREMENT FROM SUPPL. GAS GEN. 

* DWDB - REF. REDUCTION IN WOB FOR APU EXHAUST AVAIL. 

» TSIN - T-COLD-IN FOR SUPPLEMENTARY GAS GENERATOR 

* CPH - specific heat OF COLO FLUID INTO SUP.GaS GEN. 

* OQOOWH - HT.XFER.INTO 02 TANK DURING InTERVAl(I) 

* DQOOWO - HT.XFER.INTO H2 TANK DURING INTERVAL(I) 

* QIHOOT - HT.XFER.INTO HEX BETWEEN H2 ACCUM -API) GAS GFN, 

* QIODOT - HT.XFER.INTO HEX BETWEEN 02 ACCUM -APU GAS GEN. 

* Q2H00T - HT.XFER.INTO HEX BETWEEN H2 TANK - H2 ACCUM. 

» Q20D0T - HT.XFER.INTO HEX BETWEEN 02 TANK - 02 ACCUM. 

* Q3HD0T - HT.XFER.INTO H2 TANK - INTEBVAL(I) 

* Q3000T - HT.XFER.INTO 02 TANK - INTERVaL(I) 

* 02HDTC - CORRECTED VALUE OF Q2HD0T DliE TO SUPPL. GAS GEN. 

* Q200TC - corrected VALUE OF 02000T DUE TO SUPPL. GAS GEN. 

* 03HOTC - corrected VALUE OF Q3H00T DUE TO SUPPL, GAS GEN. 
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CAPU 


1 16 

C 

* QTOOTC 

1 17 

C 

* QMHOOT 

1 16 

c 

* QSHOOT 

1 19 

c 

* Q60D0T 

120 

c 

* Q7000T 

121 

c 

* TTH2W0 

122 

c 

* TTO2W0 

121 

c 

* PCH2WD 

I2N 

c 

* PCO2W0 

I2S 

c 

* RH0CH2 

126 

c 

• RHOC02 

127 

c 

* OQOWTH 

126 

c 

* OQOWTO 

129 

c 

***** 

no 

c 


ni 

END 



- C09RECTED VALUE OF Q10DOT DUE TO SUPPL.8AS fiEN. 

- HT.XFEP.INTO HEX BETWEEV H? ACCUM -APU GAS GEN. 

- HT.XFEP.INTO HEX BETWEEN H2 PUMP - H2 ACCUH. 

- HT.XFEP.INTO HEX BETWEEN Oj ACCUM -APU GAS GEN. 

- HT.XFEP.INTO HEX BETWEEN 02 PUMP . 02 ACCUM. 

- TOTAL USABLE H2 WITHDRAWN TO END INTERVAL(I) 

- total usable 02 withdrawn To FNO INTERVAL! n 

- percent usable h2 withbrawn To end Interval! n 

- percent usable 02 withdrawn To end IHTERVAL(I) 

- DENSITY OF H? TN STORAGE TANK 

- DENSITY OF 02 IN STORAGE TANK 

- OQ/DW • WTH(I) 

- OQ/DW * WTO( I ) 
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PR0CEDURE DEFINITI0N PR0CESS0R CCNTRL 

61S7I7*TPF*.CCNTRL 

I CCN7PL* PROC 


2 

C 



1 


parameter NBRSR=9, NBRSVS6 

u 

C 



s 


INTEGER 

SCRIT.SYSNUM 

6 

c 



7 


COMMON /CCNTPL/ I NBLK ( NBRSYtSf 2 1 .NAMSYS 1 NBRSY ) . ScR IT, SvSNUM 

8 


1 fINTGSV 

.M0TRC( l2),9SUeC(NBRSY,NBRSR),LREPT,JAPUS(2,2) 

9 

c 



10 

c 


INHLK - CONTROLS INPUT SELECTION IN COMPIL 

1 1 

c 


SCRIT s 1 FOR SUB-CRITICAL 

12 

c 


= 2 FOR SUPER-CRITICAL 

11 

c 


SYSNUM = 1 ACPS 

IR 

c 


= 2 APU 

IS 

c 


= 1 EC/LSS 

I6 

c 


= 9 FUEL CELL 

17 

c 


= S OMS 

18 

c 


= 6 HZN (HyDRAIINE APU) 

19 

c 



20 

c 

CARD COL. 

MDTRC( ) - DIAGNOSTIC TRACE SWITCH FOR CRYCON (OFFsO) 

21 

c 

(69) 

( 1 ) : 1 TURN ON ACCRES 

22 

c 

(70) 

(2) = 1 TURN ON AC(5WT 

21 

c 

(71 ) 

(1) s 1 TURN ON APUSUB OR APUSUP 

2M 

c 

(72) 

(9) a t TURN ON CmPCAl 

2S 

c 

(71) 

(S) a 1 TURN ON FUELCL 

26 

c 

(79) 

(6) a 1 TURN ON COi^SUM 

27 

c 

(7S) 

(7) a 1 TURN ON ECLSS 

28 

c 

(76) 

(8) a t TURN ON LI ORES 

29 

c 

(77) 

(9) a t TURN ON tank 

10 

c 

(781 

(10) a 1 TURN ON TSIZEI 

11 

c 

(79) 

(II) a 1 TURN ON WTACC 

12 

c 

(80) 

(12) a ( TURN ON HZAPU 

11 

c 



m 

c 


MOTHC(I) IS CARO COL 69.— MDTRC(I2) IS CARO COL 80 

IS 

c 


OF THE SYSTEM SPECIFICATION CAPO 

16 

c 



17 

c 



18 

c 

************************************************************ 

19 

c 



90 

c 

******* 

THIS SUBPROGRAM HAS BEEN MODIFIED FOR USE WITH THE **•»** 

91 

c 

******* 

HYDRAZINE APU PROGRAM **•»»* 

92 

c 

******* 

•* DO NOT USE WITH TCIMM •* ****** 

91 

c 



99 

c 

****************************************************************** 

9S 

c 



96 

c 



97 

END 
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PR?)CEDURE DEFINITIPN PROCESSOR CNAMES 

61S7I7*TPF$.CNAMES 

1 CNAMES* PROC 

2 C 

3 INTEGER FNAME 

N C 

5 COMMON /CNAMES/ FNaME(IS), LOO, 16), LI(2I,2), L2(3,7), LKN,^), 

6 I m(4.in, LSO.S). L60,N), L7(M,23)« Lfl(N.l), L9(N.S), LIOO.S), 

7 2 LM(M,2N), U2(M>28), U10,28), JFLU!D(2»3)f KFLU1D(2,2) 

8 C 

9 C NAMES ARE GIVEN IN S.R. STOOTA 

! 0 C 

I I C ****************************************************************** 

12 C 

n C ***•»*« THIS SUBPROGRAM HAS BEEN MODIFIED FOR USE Wl7H THE ****** 

m C ******* HYDRAZINE APU PROGRAM ****** 

15 C ******* ** 00 NOT USE WITH TCIMM ** ****** 

16 C 

1 7 C ************ **************************** ************************** 

18 C 

19 C 

20 END 
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SUBR0UTINE C0MPIL 


ri7*TPF$ 

.COMPl 

L 



2 

c 

• ROUTINE NAME - DATA INPUT, VERIFY AND 

ECHO 

* 

7 

c 

* ROUTINE LANS - FORTRAN V UNIVAC 1 1 Ofl 

EXEC 

2* 


c 

• PpOGRAMMER - R. BOLLINGER 1993 102 

26933 

* 

S 

c 

• DATE CODED - APRIL FOOLS DAY 1970 


* 

6 

c 

» REVISED - JANUARY I 1 , I 972 


* 

7 

c 

• REVISED - JULY 1972 


* 

8 

c 

• programmer - J, MCKAY DI993 201 

9SI78 

* 

9 

c 

******************** 

* * * 

* 

10 
1 1 

c 

c 




12 

c 

************************************************** 



13 

c 




1 9 

c 

******* THIS subprogram HAS BEEN MODIFIED FOR USE 

WITH 

THE ' 

IS 

c 

******* HYDRAZINE APU PROGRAM 



16 

c 

******* ** 00 not USE WITH TCIMM ** 



17 

c 




IS 

c 

************************************************************ 

19 

c 




20 


SUBROUTINE COMPIL 



21 

c 




22 


LOGICAL JP.PAGE 



23 

c 




29 


include caccum 



2S 


INCLUDE CAPU 



26 


INCLUDE CCNFIG 



27 


INCLUDE CCNTRL 



28 


INCLUDE CDCYCL 



29 


INCLUDE CECLSS 



30 


INCLUDE CENG 



31 


INCLUDE CFUEL 



32 


INCLUDE CHEX 



33 


INCLUDE CHSORC 



39 


INCLUDE CIOUNT 



3S 


INCLUDE CMOTOR 



36 


INCLUDE CNAMES 



37 


INCLUDE CPAGF 



38 


INCLUDE CPIIMP 



39 


INCLUDE CTANK 



90 


INCLUDE CTURRN 



91 


INCLUDE TANKWT 



92 

c 




93 

SOlO 

FOBMAT<A6,I9.3IS,3FS.O,IS,2FS.O»SXtA6) 



99 

S020 

FORMAT(IS,6FIO.O) 



9S 

S030 

FORMAT (3IS/7F 10. 0/FI 0.0) 



96 

S039 

FORMAT! IS) 



97 

S090 

FORMAT! 1 IF6.0.6X.A6) 



98 

SOSO 

FORMAT! IS.9FIO.O/IS,9F|0,0/9FIO.O/9FIO.O/SF(0.0/SF|0.0) 


99 

S060 

FORMAT !SIS/BFIO.O/8FIO.O/FIO,0) 



SO 

S062 

FORMAT !PIS.7FI0.0) 



SI 

S070 

F0RMAT!FI0.0) 



S2 

SOSO 

FORNAT!3FIO.O,IS.3FIO.O,F7.0) 



S3 

S090 

F0PMAT!IS.SX,9FI0.0) 



S9 

SlOO 

FORMAT! IS.SX3FI0.0) 



ss 

S 1 1 0 

F0OMAT!RFI0.0) 



S6 

SI 20 

FORMAT! is.sx.sno.o) 



S7 

SI30 

FORMAT!7FIO.O) 




****** 

****** 
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******** COMPIL 


******** 


58 

59 

60 
61 
62 
61 
69 

65 

66 

67 

68 

69 

70 

71 

72 
71 
79 

75 

76 

77 

78 

79 

80 
81 
82 
81 
89 
8>5 
86 

87 

88 

89 

90 

91 

92 
91 
99 

95 

96 

97 

98 

99 
I 00 
101 
102 
101 
I 09 

105 

106 

107 

108 
109 
I 10 
I I I 
i 12 
I II 
! I 9 
I IS 


5190 FORMAT! I0F7.0) 

5191 F0RMAT(2IS.6FI0.0) 

SI SO FORMAT(9IS.SFIO.O/(7FIO.OH 
SISI F0RMAT(7FI0.0/SFI0,0) 

C 

6000 FORMAT! '0'il8X9A6//2IA6/2IA6/' •) 

6010 FORMAT 1 1XA6. 2XA6. I X 1 9 . 2X1 S . 2X IS. 2X IS. 2X. E I S . 8 , 6XF7 . 2 . 6XF6. 2 1 SX IS . 

I 9XF6.2.7XFS. I I 

6020 FORMAT! '0 »DIACN0STIC8 THE ABOVE FUNCTION CODE IS ILLEGAL') 

6010 Format I ' 0 iRxRAfc/ • •! 

6011 FORMAT! 'O' .TSS. 'SUBCRITICAL APU DATA'//) 

6012 FORMAT! 'O' .TSl. 'SUPERCRITICAL APU DATA'//) 

6090 F0PMiT!S9XlS.2XlA6/l96XEI1.8.2XlA6) ) 

6050 FORMAT! 'O' .1RX9A6//1 

6051 F0RMAT!TI8. I- I -',T16.'- 2 -'tTS9.'- 1 -'.TT2,i. 9 -i,T90.'- S 

I .TIOI.'HFAT EXCHANGER NUMBER ' /T 1 1 OXYGFN HYDROGEN OXYGFN HYDR 
20GEN OXYGEN HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN'/) 

6052 F0RMATI/////TI8. •- 6 -'.T16.'- 7 -',TS9.'- 8 -'.T72.'- 9 -'tT90. 

I 10 .Tini. 'HEAT Exchanger number'/th.'Oxygfn hydrogen oxyg 
2EN hydrogen oxygen HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN 
1'/) 

6060 format !9 I XIS. I0XIS.7X9A6) 

6062 format I '0'//1Rx'*'9A6/ 19x ' TANK ' 8 X ' FLuI D ' 9x ' . . . D I M E N s I 0 
INS..,'/ 19X'SHAPE'7X'TYPE'22X'!FEET) '/) 

6069 FORMAT !10X 2ll2,6X 1FI2.9) 

6069 FopmAT!T98. 'number OF HEAT EXCHANGERS INPUT s'. IS//) 

6070 FORMAT!9XIOF9. I .1X9A6) 

6080 P0'’I^AT!9 2XI9. |0XIS.7X9A6/9!16X2E|S.B.2X9A6/). 'O' .18X9A6///9I16X2EI 
IS. 8 .2X9A6/) , 'O' .18X9A6/// ! 16X2E I S. 8 . 2X9 A6 ) ) 

6090 format !16X2E IS.8.2X9A6) 

6091 FOHMAT! 'O' .97X, IS. ISX, 'TANK WEIGHT-CONFIGURATION OPTION CONSIDERED 
I '/98X, IS. ISX, 'NUMBER OF TANK SHAPES IN CONFIGURATION') 

6100 FORMAT! '0'18X9A6/' ') 

6101 ForMAT!'0',TI0,'OPER.TIME ' , T29. ' NON-OPERAT I nG ' ,T90, 'MIB-DEGRAD, ' . 

1 TS9, 'UNITS 0PER.'.T67, 'HORSEPOWER', TSl, 'AMB. PRESSURE', T98. 

2 'POWER-KW'.TI 10, ' REPRES .T I ME ' / ) 

6110 F0RMAT!T7,1EIS.8,I8,SX,9EIS,8) 

6120 Format i'o » error • duty cycle input too lonG'/) 

6127 F0RMAT1//TI8. '. 6 -'.T16,'- 7 -'.TS9,'_ 8 -',T72.'- 9 .',T90, 

1 '- 10 -'.TIOl, 'HEAT SOURCE NUMBER'/Tll, 

2 'OXYGEN hydrogen OXYGEN HYDR 
lOGEN Oxygen hydrogen oxygen hydrogen oxygen hydfogen'/) 

6128 FORMAT!T90, 'NUMBER OF HEAT SOURCES INPUT =',IS//) 

6129 F0RMAT!T|8, '- | -',T16,'- 2 -',TS9,'- 1 -',T72,'- 9 -'.T90.'- S -' 

1 , TIOl , 'heat SOURCE NUMBER ' /T 1 1, ' OXYGEN HYDROGEN OXYGEN HYDROGEN 

2 Oxygen hydrogen oxygen hydrogen Oxygen hydrogen'/) 

6110 FORMAT! 9X 1019, 1X9A6/! 9X1 0F9. I ,1X9A6) ) 

6190 F0HMAT!TS2, I IS.T70, 'MOTOR TYPE ' /TS2, E I S . 8 , T7O , ' MOTOR EFFICIENCY'. 

I /TS2,EIS.3,T70, 'MOTOR SPEED ' /TS2 , E I S. 8 . T70 ,' BATTERY POWER DENSITY 
2' ) 

6 ISO F0RMAT!S9XIS.2X9A6/!96XE tl.8,2X9A6) ) 

6160 format !S9XIS,2X9A6/S9XIS.2X9A6/S9XIS.2X9A6/S9XIS.2X9A6. 

I /!96XEI1.8,2X9A6) ) 

C 

c ******A**A****8A***XAA***********************A**A«„.,*„„„*„„,r„„,t*,^),„A„ 

C 

c check 'NBLK' HFFOR data setup - INCLUDE ALL DATA BLOCKS ***** 

C ***** required for the SYSTEM BEING STUDIED. ***** 
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I 16 
I 17 
I 18 
I 19 
120 
121 
122 
121 
129 
128 
126 

127 

128 
129 
1 10 
111 
112 
111 
1 19 
118 
116 
I 17 
118 
1 19 

190 

191 
193 
191 
I 99 
198 

196 

197 

198 
|99 
180 
181 
182 
181 
189 
188 
186 

187 

188 
189 
160 
|6| 
162 
161 
169 
168 
166 

167 

168 

169 

170 

171 

172 
171 


COMPIL ******** 

C 

c ********************************************************************* 

c 

NIENTH r 0.0 
C 

c 

c ***** INPUT THE C0NFI6URATI0N TAPLE 

C 

IP (PAGE (On WRITE (6>6000) (L0(I«l)<I=l>9),((LI(I,J).I:l,2l)tJ=l«2) 
JP = PA6E(S) 

C 

lERR = 0 

00 10 1 1=1 .ICNF 

READ (IIN.SOIOI CFIINCT, CFTVPE. CNOPER. CNSTBV, CMTYPE, FRCOEPdl) 

1 . LOOIIII, OIAM(H), CITYPE, IThICY(II). MRAR(II), 

2 CODE(II) 

IF ( PAGE ( I ) ) WRITE (6. 6000) (L0(lfn*Isl.9),((Ll(I,J),I = l,2n*J=l.2) 
WRITE (IOT,60IO) CFUNCT. C0DE(II)t CFTYPF. CNOPER. CNSTBY, CMTYPE. 

1 FRCOEFdl). LOOdl), DIAMdl), CITYPE, 

2 ITHICKdd, NBARdt) 

C 

c ***** SEARCH FOR THE CONFIGURATION NAME. 

C 

00 10 12 = 1.19 

IF(CFUNCT,EO.FNAME( 121 ) GO TO 20 
10 CONTINUE 

c 

WRITE(6,6020) 
lERR s IFPR ♦ I 
GO TO 10 
C 

20 CFUNCT s 12 

CALL STOCONI I I I 
IFICFUNCT.EO. 19) GO TO 18 
10 CONTINUE 
C 

c ***** input the duty CYCLE DATA 

c 

18 CONTINUE 

IF ( lERR .GT. 0) CALL EXIT 

IF(BAGE(On WRITE(6,6I00) ( LO (I .6 ) . 1 = I .9 ) 

WRITE dOT,6IOI) 

OCYCLT = 0.0 
NOCYCL = 0 
II = 0 

00 100 II=I.IC0L2.2 
NOCYCL = NOCYCL ♦ 2 
II = II ♦ I 

READ dIN.8080) DCYCLE(II), OCYCLEI 1 1 ♦ I ) , PSKM)* NEOP(Il), 

I HPdl). PAMBdl), PKWdI), RPRTlMd!) 

IF(PAGE(in WRITE(6,6I00) (LOd ,6) , 1= I ,9 ) 

WRITE dOT,6IIO) OCYCLECIt), OCYCLEdl*!), PSidI), NEOPdl). 

I HPdl), PAMBdDi PKWdI), RPRTIM(TI) 

OCYCLT = OCYCLT ♦ DCYCLEdI) 

KCYCLE =11-1 
IF(OCYCLEd l + l ) ) 90,, 

IFIDCYCLEd 1)1,100,100 
NOCYCL = NOCYCL - I 
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COMPIL ******** 


I7M 

ITS 

176 

177 
I7B 
179 
I SO 
I 8 I 
182 
I 67 
I 8W 
ISS 
I 66 
187 
I 88 
I 89 

190 
I9| 

I 92 

191 

199 

195 

196 
I 97 
I 98 
I 99 

200 
201 
202 
201 
209 

205 

206 

207 

208 

209 

210 
21 I 
212 
211 
219 

215 

216 

217 

218 

219 

220 
221 
222 
221 
229 

225 

226 

227 

228 
229 
210 
211 


90 NDCYCL = NOCYCL - I 
GO TO MO 
100 CONTINUE 
C 

WRITE(6.6I20) 

CALL EXIT 
C 

c ***** input the consumer data 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 


c 

c 


c 


I 10 CONTINUE 

GO TO ( M I f I I 2i I20« I lOi I M • 190) t SYSNUH 
Ml CONTINUE 


***** READ IN THE ENGINE CONSUMER DATA 

IF(PAGE(0M WRITEI6.6010) ( LO ( t • 2 ) « != I . 9 ) 

R£A0(S.S020) NENG,GITEMP,GIORES,THRUST,PSURC«EXPRATiMIXRAT 
WRITE (6. 609 0 I NENG, (L2M, I I, I = 1.1), 

1 C.ITEMP, (L2( 1,2) ,1 = 1 ,1), 

2 GIPRES,(L2(I.1), 1=1,1), 

1 thrust, (L2II, 9), 1=1,1), 

9 PSUBC ,(L2(1,S), 1=1,1), 

5 EXPRAT,(L2(1,6),1=I,1), 

6 MIXHAT, (L2(I,TI,I=I ,1) 


GO TO Ml 


I 12 CONTINUE 

*** READ IN THE APU CONSUMER DATA 


IE(PAGE(0MWRITE (I0T,6010) ( LO ( 1 , 1 1 ) , I = I , 9 ) 


read (iin.sipo) napu, hpr, emr, pgg, tit, to 

GO TO (119,1 IS) fSCRIT 
I 19 continue 

WRITE (I0T,601I) 

READ (I IN, SI 10) MRGGCH, MRG6CO, TD6GH, TOGGO, TVH, TVO, TENV 


write 

1 

2 
1 
9 

5 

6 


(IOT,6ISO) NAPU, (lM 
FMR , (LM 
TIT , (LM 
MPGGCH, (LM 
TOGGH ,(LM 
TVH ,(LM 
TENV ,(LM 


1,1), 1 = 1, 9), hpr, (LI I ( 1 ,2) , IsI ,9) , 
1,1), 1 = 1, 9), PGG, (LM I I, 9), 1 = 1 ,9), 

I, S), 1 = 1, 9), TO , (LM (I*6),I = I ,9) , 
I,7),1 = I,9),MRGGC0, (LI MI, B), 1 = 1, 9), 

I,9),I=I ,9) ,TDGGO ,(LII(I,I0),I=I,9), 
I, M ),I = I ,9),TV0 , (LM (I, I2),I = I ,9), 

I, ID, 1 = 1, 9) 


GO TO Ml 


I IS CONTINUE 

WRITE (lOT, 60121 

read (IIN.SnO) FMRG, PFH, PFO, TFH, TpO, T6, OELPCP, TENV 


WRITE (10T.6ISO) napu, ( L I I ( I , I ) , I = I ,9 ) , HPR 

1 FMR , (LI 1(1,1). 1 = 1, 9), PGG 

2 TIT , (LI MI, S). 1 = 1, 9), TO 
FMRG, (LIKI, 191, 1 = 1, 9), PFH 

9 PFO ,(LM(I,I6),I = I,9),TFH 


, (LI I (1,2), 1 = 1 ,9) . 
, (L II ( 1 ,9 ) , 1 = 1 ,9 ) , 
, ILII (I,6),I=I,9), 
,(LIMI,IS),I = I,9), 
, (LI II I, 171,1:1 ,9) , 
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212 

211 

21M 

215 

216 

217 

218 
219 
2M0 

241 

242 
241 

244 

245 

246 

247 

248 

249 

250 

251 
282 
281 
284 
288 
286 

287 

28g 

289 

260 

261 

262 

261 

264 

268 

266 

267 

268 

269 

270 

271 

272 
271 
274 
278 

276 

277 

278 

279 

280 
281 
2B2 
281 
284 

288 
286 

287 

288 
289 


COMPIL 


C 

C 


8 

6 


CO 70 HI 


7FO «(LIHt«l8)>lc|t4)iTG 
0ELPCP,(LI Mt,20),|:lt‘«)«TENV 


tdlHlf l9)fItH4)f 
.(LH(I.ll),l:l.4) 


C 

C 

C 

C 


C 


C 


C 

C 

C 

C 

C 

C 


C 


120 C0N7INUE 

*** READ IN LIFE SUPP0R7 SvS7EM CONSUMER DATA 
IF(PAGE(0)) WR17E (107t60S0) ( LO ( 1 1 1 8 ) • I = I »9 ) 

READ (ItNiSISO) M0AYS»NCREW<NRPREStNDARES,02FN0M,GLKRATt7LSN0M( I )i 

1 TLSN0M(2) iRHOBEGH ( * RH08EG ( 2 ) , TKFTEM ( I ) • TFF7EM ( 2 ) . 7KFPRS ( I ), 

2 7KFPRSI2) .7ENVR.CABVOL 


READ niN,SI8H LINOUHl. LINDtA(2), H7RFLXH»» HTRFLX(2), 

1 PLSNoM(l), PLSN0M(2>* H7R0IAH), H7R01A(2). 

2 H7RLNGHI, H7RLNG(2». PSETI. PSE72 


WR!7E (107,61601 MDA vS , ( L 1 1 ( I » l),l = l*4). 


1 

NCREW 

, (LIU I, 2),t = 

l.4),NRPRES ,ILIl(I 

, 1),1 

1,4), 

2 

NDARES 

, (LIK I, 4),t = 

l,4),02FN0M ,(L|1II 

, 8),1 

1,4), 

1 

gukpat 

,(LI1H, 6),I = 

I,4),TLSN0MH),ILI1(I 

, 7), I 

1,4), 

4 

TLSN0M(2) 

,(LI1(1, 8),t= 

I,4),RHoBEG( |),(LI1(I 

, 9),1 

1,4), 

8 

RH0BEG(2) 

,(L|1(I,I0).1= 

l,4),TKFTEM( H,(Llllt 

,11),! 

1,4), 

6 

TXFTEM(2) 

,(L|in,l2),I = 

|,4),7KFPRS(l),ILll(I 

,11), I 

1,4), 

7 

TKFPRS(2) 

,(LI1(I,I4),IS 

l,4),TENVR ,(LI1(I 

,18), I 

1,4), 

8 

CABVOL 

,(Llllt,l6),Is 

I,4),LInDIA( I ),(LI1(I 

,17), I 

1,4), 

9 

LINniA(2) 

,(LI1(1,I6),I= 

l,4),HTRFLX( I),(LI1(I 

, I9),I 

1,4), 

7 

HTPFLX(2) 

,(L|1(I,20),I= 

l,4),PLSN0MI 1 I,IL|1II 

,21 ),1 

1,4), 

A 

PLSNOM(2) 

,(Lnn,22),I = 

1 ,4),HTR01A( I ) , ILIll I 

,21), I 

1,4), 

B 

HTR0IA(2I 

,(Lll(l,24),Is 

I,4),HtRLNG( I I , (LIK I 

,28), I 

1,4), 

C 

HTBLNG(2) 

,(LI1(I,26),I= 

1,4), PSETI ,|Lll(I 

,27), I 

1,4), 

D 

PSET2 

,(LI1(I,28).I: 

1,4) 




GO 70 111 


no C0N7INUE 

**• READ IN fuel cell CONSUMER DA7A 
IF(PAGE(On WRI7E(IOT,6080) (LO ( 1 , 14 1 f I: I ,9 ) 


MRFC, SRCFC, QOTFC. SPwTFC, TFCNOM { I ) » 7FCN0M ( 2 ) , 
TF2IIN, TF2I0U, TFOFC, TFHFC 

PFOFC, PFHFC* RHOFIL(I), RH0FIL(2), WOVENT,WHVENT» 
OELTCP, 7ENV, PRFCOP, POWNOM 
NFCOP, NFCSTB, PLSETt, PLSET2, VjANUL(l), 
VJANUL(2),7KMX0n n,TKMXDI(2) 

FCV0L7, PRGRAT(I), PRGRA7(2)» PRG71M(H, 

PRG7IM(2), PRGIN7(l)i PRGINT(2) 


READ (IIN,SI40) 
I 

READ (IIN,SI40) 
I 

READ (IIN,SI4I) 
I 

READ (1IN,8I10) 
I 


WRITE 

HOT, 6180) 

NFCOP ,(LI2(I 

1 

SRCFC 

,ILI2n, 

1), 

2 

SPWTFC 

,(LI2(I, 

8). 

1 

TFCN0M(2) , (L I2( t , 

7), 

4 

TF2)0U 

, (LI2( I, 

9), 

8 

TFHFC 

,(LH(I, 

17), 


I ),I = I,4),MRFC,(LI2(I, 2), 1 = 1 ,4), 
=I,4),0DTFC ,(LI2(I> 4), 1=1,4), 
=1 ,4), TFCNOM I l),(LI2(I, 6), 1=1, 4), 
rl,4),TF?llN ,(LI2(I, 8), 1=1, 41, 
= 1,4), TFOFC , (LI I ( I, IS), 1 = 1 ,4) , 
= 1,4), PFOFC ,ILIin,l6),l = l,4), 
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COMP!L 


290 


6 

PFHFC • (LI 1 (t« ISUl2lt4)«RH0FlL( 1 )«(U2(I« I0I.I2I «4) 

291 


7 

RH0FIL(2)> (LI2(I« 1 1 )>I=I •4)«W0VENT •(LI2(Itl2)tI=l«4| 

292 


8 

WHVENT i(U2(I«ll).I=l.4).DELTCP i ( L ( 1 ( 1 , 20 ) . I = 1 . 4 ) 

291 


9 

TENV , (LI 1 (1 , ID ,I2I ,4) .PRFCOP , ( L 1 2 ( 1 , 1 4 ) , I = 1 , 4 ) 

294 


T 

POWNOM t(Ll2(I.IS),l2l,4)tPLSETI t ( L 1 2 (I • 1 8 ) • I = 1 • 9 ) 

29S 


A 

PLSET2 • |LI2(t« I7).l2l •4)tVJANUL( l)f(LI2(I«IB)<Izlt4) 

296 


B 

VJANUL(2)« (LI2( I . I9).lr| ,4) tTKhXOI 1 1 ) f ( L 1 2 ( I • 20 ) t I = 1 « 4 ) 

297 


C 

TKMXOI (2). (LI2(I,2n,Irl,4»,FCVOLT , ( L 1 2 ( I , 22 ) , I = 1 , 4 ) 

298 


0 

PRGRATI 1 )« (LI2(I,21).l2l .4 ).PRGrAt( 2). (U2( 1.24) t in .4) 

299 


c 

PRGT!M( 1 )«(Li2(!.2S)t!si.4i.rnGTIM(2).(Li2(I.26).!zl.4) 

100 


F 

PRGINT( 1 ) , (L 12( 1 ,27) . I2| .4) .PROINTI 2) , (L(2( I ,28 ) . 1= 1 .4) 

10 ( 

C 



102 


GO 70 

1 1 1 

101 

C 



104 


140 CONTINUE 

lOS 

c 



106 

c 

*** READ IN hydrazine APU CONSUMER DATA 

107 

c 



108 


IF(PAGE(0n WRITE(10T.60S0» ( LO ( 1 1 1 6 ) . 1 2 1 , 9 ) 

109 

c 



110 


READ 

(IIN.SI20) NAPU, HPR, PTRBIN, PRAT, PCRSRv, SPGPRS 

11 1 

c 



112 


WRITE 

(IOT,6ISO) NAPU,(LII(I, I ),l2l»4),HPR ,(LII(I, 2),lrl,4), 

111 


1 

PTRBIN, (LI )( 1,24 ),I2| ,4 ),PRAT , ( L 1 1 ( ? , 2 1 ) , I s 1 , 4 ) , 

114 


2 

PCRSRV,(L|I(I,22),Is|,9),SPGPRS,(LI I 1 1 ,21 ) , 1 s 1 ,4 ) 

IIS 

c 



116 


GO TO 

1 11 

117 

c 



118 

c 



119 


1 11 CONTINUE 

120 

c 



121 

c 

***** INPUT TANK DATA 

122 

c 



121 


IF (PAGEIOII WRITE (I0T.60S0I (LO ( I . i 2 ) * I r 1 f 9 ) 

124 

c 



12S 


J 2 1 


126 


READ 

(IIN.S060) (NOP (I,J),SATVPE(1 ) , S ITYPF ( I , J ) , SMTVPE ( I , J ) , 

127 


1 

SPTYPE(I,J),SITEMP(I,J),SIPBES(1,J).SPGTEM(I,J),S0PRES(I,J), 

128 


2 

SVPRfS(I,J),SHFLUX(I,J),SIThIK(i,J),fLDLOd(I ),SULGPCII ), 

129 


1 

SNDIAM(I,J),sh0tEM(I,J),SH0ELP(1,J),SPDELP(I,J),5G0tEM(I,J), 

110 


4 

SGGPC (I,J),SGMRAT(I,J),SNBAR (I ),Iz|,2) 

111 


WRITE 

(IOT.6060) (NOP (I,J),in,2),(L7(I,22),Irl,4), 

112 


1 

(SATYPEd ),! = ! ,2),(L7(I,I2),I = I ,9), 

111 


2 

( SI TYPE ( I, J), in ,2), (1.7 ( I,IO),Irl,4), 

114 


1 

(SMTYPE(I.J),Irl,2),(L7(I. 9),I-|,4), 

IIS 


4 

(SPTYPE(I,J),ln,2),(L7(l,ll).ln.4) 

116 

c 



117 


write 

(IOT.6090) (SlTEMp(I,J),Ir|,2),(L7(I, 6), 1=1, 4), 

118 


1 

(SIPRES(T,J),I2| ,2), (L7( I, 7) , in ,4), 

119 


2 

(SPGTEM(!,J),in,2),(L7(I,IS),ln,4), 

140 


1 

(SOPRES(I,J),in,2),(L7(I, I9).I = I ,9), 

141 


4 

(SVPRES(I,J),in,2),(LT( I, 8),Izl,4), 

142 


S 

(SHFLUX(l,J),in,2),(L7(I, S),Isl,4), 

141 


6 

(SITHIK(I,J),in.2),(l.7(I,ll),l2l,9), 

144 


7 

(FLOLOOn ),I2|,2),(L7(I, l),Irl,4), 

14S 


8 

(SULGPCd ),Irl.2),(L7(I. 9),Irl,4), 

146 


R 

(SHDIAM(I,J),I2|,2),(L7(I, 2),Irl,9), 

147 


A 

(SH0TFM(I,J),!2( ,2), (L7d, |8) , In ,4), 
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ms 

3H9 
ISO 
IS I 
9sa 
1S9 
ISS 

355 

356 

357 
3SB 

359 

360 
36 1 

362 

363 
36U 

365 

366 

367 

368 

369 

370 

371 

372 

373 
379 

375 

376 

377 

378 

379 

380 

381 

382 

383 
389 

385 

386 

387 

388 

389 

390 

391 

392 

393 
399 

395 

396 

397 

398 

399 
900 
90 I 

902 

903 
909 
90S 


COMPIL 


B 

(SHDELPd.J).ls 

.2).(L7d. I6).I- 

.9). 

C 

(SPDELP(t.J).I= 

.2).(L7(I. (7), I: 

.9). 

0 

(SGOTEMd,J)«t = 

.2>.IL7d.20).I = 

.9) • 

E 

(SGGPC d(J).I = 

,2),(L7d.l9).I = 

.9), 

F 

(SGMRAT(I.J)»I= 

.2)«(L7d.2n.I = 

.9). 

G 

(SNBAR d )•!= 

.2).(L7d.23).I: 

.9) 


C 

R8A0 (MN,S062) IWOPtNOSHAP 
C 

WRI7E (IOT.609I) IWOP, NOSHAP 
C 

C CHECK FOP GENERAL TANK CONFIGURATION 

IF (IWOP .LT. 2 .OR. NOSHAP .E(J. 0) GO TO 210 
WRITE (lOT. 60621 ( LO (I , ( 0 ) . I = I . 9 ) 

C READ IN GENERAL TANK CONFIGURATION 

no 200 1=1 .NOSHAP 

READ (IIN.S062) JTKTYP ( I ) , JFLTP ( I ) , XD ( I ) . VO ( I) , ZO ( I> 
200 WRITEnOT,6069) JTKTYP (I ). JFLTP ( I ), XO ( I) . YD ( I) , ZO ( I) 
210 CONTINUE 


C 


DO 2000 JSlMrl.S 


C 

IF ( IN8LK(SySNUM,JSIM.SCRIT) .EQ. 0» GO TO 2000 
GO TO ( I 100. 1200. (300. 1900. IS00)«JS1H 

c 

c •*•** input THE ACCUMULATOR DATA 

C 

( 100 CONTINUE 

IF(PAGE(0)) WRITE(6.60S0> (LO ( I . 3 ) t 1: I .9 | 

C 

READ (IIN.S030) (NAOP(I|,AITVPE(n.AMTyPE(I).ATEMP(n.APRES(I). 

1 AHFLUX( I ) .AITHIKd |»AVOL( I ).ADIAM( n.ANOELPd ). 

2 ANRAR (II. 1=1. 2) 

C 

WRITE dOT.6060) (NAOP (1) 

1 (AITYPEd) 

2 (AMTYPEdl 


.I=l.2).|L7(I.22|.Ist.9). 
.I=t.2).(L7(I.I0).I=l.9). 
.l = l.2).(L7d. 9).Isl,9) 


write 

( lOT. 60901 

(ATEMP (I). 

1 = 

l,2).(L3d. 

d» 

Is 

,9). 

1 


(APRES (I). 

1 = 

l,2)t(L7(I. 

19). 

I - 

,9), 

2 


(AHFLUXd ), 

1 = 

1.2). (LTd, 

S). 

I - 

.9), 

1 


(AITHIKd), 

1 = 

l.2).(L7d. 

d ). 

Is 

.9). 

9 


(AVOL d). 

1 = 

I.2).(L3(I, 

2). 

T s 

.9). 

S 


(ADIAM d), 

1 = 

l.2).(L7|I. 

2)* 

Is 

.9), 

6 


(ANDELPd ). 

1 = 

l.2).(L3d. 

3) . 

Is 

.9), 

7 

GO TO 

2000 

(ANBAH (I), 

1 = 

l,2),IL7d. 

23), 

Is 

,9) 


C 

C ***** INPUT THE HEX DATA 

C 

1200 CONTINUE 

IF(PAGE(OM WRITE! I0T.60S0) (L0(1 .9 ) . Is 1 1 9 ) 

REAOd IN.S039 ) NUMHEX 

PEAOdIN,S090) ( (HEXHITd,J),HEXHOT( I.JI.HEXCITd.JI.HEXCOTd.J), 

1 HEXHIP(I,J),HEXHOPd.J).HEXClPd.J).HEXCOPd.Jl. 

2 HXHOLP(I.J) .HXCOLP(I.J) .HXMRAT( I, J) .HXCODEd . J) . 

3 J=l .2). 1=1. NUMHEX) 


WRITEdOT.6069) NUMHEX 


D-79 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


COMPIL 


M06 


WRITE! IOT,60SI ) 


WTI 

M32 

MIT 

um 

41S 

4T6 

MT7 

R3R 

MMO 


RS7 

WS8 

RS9 

W60 

R6I 

462 

463 


407 

WRITE!IOTf6070»( (HEXHIT(I.J).Js 

U2I 

.IRl.S) 

.(1.4(1, 1), 

t:l,4), 

408 

1 

((HEXHOT(I.J)»J= 

l>2) 

.1:1 .S) 

.(L4(I, 2). 

1:1.4), 

409 

2 

( (HEXCIT(I.J).J= 

It2) 

.I=US) 

.(L4(I, 3), 

1:1.4). 

4 1 0 

3 

((HEXCOT(I.J),J= 

1 >2) 

• l:| .S) 

.(L4(1. 4), 

1:1.4). 

41 1 

4 

( (HEXHIP(I,J),J= 

l>2) 

. |:l .S) 

.(L4(I. S). 

1=1.4). 

412 

S 

( (HEXHOP! I. J) . J: 

1.2) 

.1:1. S) 

.(1-4(1, 6). 

1:1,4). 

4(3 

6 

( (HEXCIP(t.J).J= 

1.2) 

.I:|.SI 

.(L4(I, 7), 

1=1,4). 

4 1 4 

7 

( (HEXCOP! I ,J) ,J: 

1.2) 

.I = I.S) 

.(1-4(1. 8) , 

1=1.4), 

4IS 

8 

( (HXHOLP! I.JI.dr 

1.2) 

.l:l .S) 

.(L4(l, 9), 

1:1,4), 

u j ^ 

O 

( ! rrXCuLr ( I # Ji ♦ Js 

i .2) 

. 1= i .S) 

• (L4(i , iO) , 

1=1.4). 

417 

T 

( (HXMRAT(I.J)td= 

1.2) 

.1=1. S) 

. (L4(I . 1 1 ) . 

1 = 1.4) 

4 1 8 

IP (NUMHEX 

.LE. SI GO TO 2000 





4 1 9 

WRITE (lOT 

f60S2) 





420 

WRITE ( lOT, 

60701 ( (HEXHIT! 1 , J) , Js 

1.2) 

.1:6.10 

).(L4d, 1) 

.1:1.4). 

421 

1 

( (HEXHOT(I,J)tJ= 

1.2) 

.1:6. 10 

),(L4d. 2) 

.1=1.4). 

422 

2 

!(HEXCIT(I,JI,J= 

1.2) 

.1=6,10 

),(L4(1, 3) 

.1=1,4). 

423 

3 

( (HEXCOT(I.J)f J= 

1.2) 

.1:6.10 

).(L4d. 4) 

.1:1,4). 

424 

4 

!(HEXHIP(I,J),J= 

1.2) 

.1:6,10 

).(L4(I, S) 

.1=1.4). 

42S 

S 

((HEXHOP(I.J).J= 

1.2) 

.1=6.10 

),(L4(T. 6) 

.1=1,4). 

426 

6 

( (HEXCTPd.JI.Js 

1.2) 

.1 = 6,10 

),(L4d, 7) 

.1=1.4). 

427 

7 

( (HEXCOP(l.J).J= 

1.2) 

,1=6,10 

),(L4(t, 8) 

.1:1,4), 

428 

8 

( (HXHOLPdf J).J = 

1.2) 

.1=6,10 

).(L4d. 9) 

.1=1,4), 

429 

9 

( (HXCDLPd.J)«J = 

1.2) 

.1=6, 1 0 

),(L4d, 10) 

.t:|,4). 

430 

T 

( (HXMRATd,J),d = 

1.2) 

,1=6,10 

l,(L4d,ll) 

.1 = 1,4) 


flO TO 2000 


***** INPUT THE PUMP OAT4 
’nOO CONTINUE 

IF(PASE(0)) WR1TE{6*60S0) (LO ( I f S ) . I = I . 9 ) 

RE 40 (Si«iOSOUPTYPE(n,PEFPn),PNPSH(I),PSSPEO(l),EPDEUP(n.IS|. 2 lf 
I (TPEFP(I),TPNPSH(n,TPDELP(I) 

? (TEFF(n.TlTEMP(t).TOTEHP!I)i 

3 Isl,2) 


44 1 

WRITE(6, 

6080)(PTVPE (I) 

.1: 

l.2).(LS(I, 1 ).I: 

.H), 

442 

1 

(PEFF d) 

.1 = 

l.2).(LS(I,2).I= 

.•4). 

443 

2 

(PNPSH (I) 

.1 = 

l.2),(LS(l,3),I: 

.1), 

444 

3 

(PSSPEOd ) 

,1 = 

l,2),(LS(I,4),I: 

,4), 

44S 

4 

(EPOELPd ) 

,1 = 

l.2).(LS(I,S),I= 

.W), 

446 

S 

(1-Od. 1 1 ), 

1 = 1 

,9), 


447 

6 

(TPEFF d) 

,1 = 

l,2),(L6(I,l),I= 

.'4). 

448 

7 

(TPNPSHd ) 

.1 = 

l.2).(L6(I.2).I: 

.W), 

449 

8 

(TPOELP(I) 

.1 = 

1.2), (L6 ( I , 3 ) . 1= 


4S0 

9 

( TPWDOT) I ) 

,1 = 

l.2).IL6(I.4),I= 

.4), 

4SI 

T 

(L0d,8),I 

= 1 

.9), 


4S2 

I 

(TEFF (I) 

.1: 

l.2).(L9(I.I),I: 

.4), 

4S3 

2 

(TITEMPd ) 

,! = 

1 .2). (L9( I,2),I: 

.W), 

4S4 

3 

(TOTEMPd ) 

,1 = 

l.2).(L9(I,3).I= 

,4), 

4SS 

4 

(TMHATOd ) 

.1 = 

l,2),(L9(I,4),I: 

,'4), 

4S6 

S 

(TGGPC (I) 

.1 = 

l.2).(L9(I,S),I: 

.4) 


,TpWnoT( I ) , lsl , 2 ) , 
TMRAT0(I)*T6GpC(n* 


GO TO 2000 


***** INPUT THE HEAT SOURCE DATA 
1400 CONTINUF 

IF (PAGF(On WRITE (I0T.6I00) (LO ( 1 1 7 ) « I = I . 9 ) 
READ (IIN,S039) NUMHSO 


D-80 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


U6M 

M66 

W67 

4f>8 

M69 

^70 

471 

472 

473 

474 

475 
47b 

477 

478 

479 

480 

48 I 

482 

483 

484 
488 

486 

487 

488 

489 

490 

49 I 
492 


COMPIL ******** 


C 

C 

c 


I 


1 

2 

3 

4 


1 

2 

3 

4 


READ (114,8090) ( (HSTVPE ( ! , J» ,HSHRAT( 1 , J) ,HSOTEM( I , J) ,HSAEE (1,J), 
HSPRES(l,J),J=l.2),ls|,NUMHS0) 

WRITE (107,6128) NUMHSO 
WRITE (107,6129) 

WRITE (IOT,6I30) ( ( HSTYPE ( 1 , J) , J= I , 2 ) , 1 s 1 , 8 ) , ( LI 0 ( I , I ) , I : I ,4 ) , 
((HSMRAT(1,J),J=I,2)«I=I, 8),(L|0(I,2),I=I,4), 

( (HS0TEMII,J),J=I,2), 1 = 1 , 8),(LI0(1,3),I=I,4), 
((Msaee (I,J),J=l,2),I:l, 8), (Lion, 4 ), 1 = 1, 4), 
((HSPRES|t,J),J=l,2),l=l, 8),(LI0(I,8),I=I,4) 

IF (NUMHSO .LE. 8) GO TO 2000 
WRITE (I0T,6I27) 

write (IoT, 61301 I (HstypE(1,J),J=I ,21,1 = 6, 10) , ILIOI I, I ) ,1 = 1 ,4), 

( (HSMRAT( I,J) ,J=I ,2) , 1=6, )0),(L|0(I,2),I=I,4), 

I (HS0TEM(I,J),J=| ,2),1 = 6, 10) , IL)0(I,3) ,1 = 1 ,4) , 

I (HSAEE ( I,J),J=I .a) ,1=6, 10) , (LIO( I ,4) , 1=1 ,4) , 
((HSPRES(I,J),J=I,2)«1:6,I0),(L|0II,8),!=I,4) 


GO TO 2000 


***** INPUT THE MOTOR DATA 


1800 CONTINUE 

IF (PAGE(O)) WRITE (IOT, 6100) (LO ( I ,9 ) , 1 = I , 9 ) 
RE AO (8, 8 I 00) MTYPE,MEFF,MSS,PONSTY 
WRITE (IOT, 6140) MTYPE,MEFF,MSS,PDNSTV 


C 

2000 CONTINUE 

c 


RETURN 

END 
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MAIN DRIVER PR0GRAM C0NTRL 

61S7I7*TPF$,C0NTRL 
I C 


2 



LOGICAL PAGE 



1 

C 





M 



INCLUDE CCN7RL 



S 



INCLUDE CIOUNT 



6 



INCLUDE CKEVS 



7 



INCLUDE CPAGE 



e 

C 





9 



DATA NSPC / 'SUP' / ILS7 / 'LAS' / 



10 

C 





1 1 

sooo 

format ( 2A6 t 2XAM t 7XA7 « (XAS/I2A6) 



12 

SOOl 

FORMAT(A7.A6.7X.A7. IMX.A7.76X, 121 1 ) 



1 1 

6000 

FORMAT (ini|9X i *** SYSTEM NAME STARTING >A7.' 

IS IN ERROR 

! 9 

600 1 

rORMaT ('O'/// YOU have CALLED FOR THE 

SYSTEM 

' A't.i 

I'j 



1 1***1) 



16 

c 





17 

c 


INITIALIZE DATA STORAGE ROUTINES 



la 

c 





19 



CALL STOOTA 



20 



call OTUNIT (lOTl 



21 

c 





22 

c 





27 



CALL DATE (9. DOR) 



2M 

c 





PS 

c 


READ NAME AND TITLE INFORMATION 



26 

c 





27 



REAO(S.SOOO) NAME. DEPT, BLO, EXT, CTITLE 



28 



NCASE s 1 



29 



INTGSY s 1 



70 

c 





71 

c 


READ TABLE INPUT DATA (ONLY ONCE) 



72 

c 





77 



CALL INTAB 



7M 

c 





7S 


1 

CONTINUE 



76 



XEYI = 1 



77 



KEY2 : 0 



78 



IF( INTGSY. EQ. 1 ) GO TO S 



79 



READ (S.SOOO) name, DEPT, BLO, EXT, CTITLE 



MO 


s 

CONTINUE 



Ml 



READ (IIN.SOOl) NSYS.NI ,NCRIT,INTGR,MDTRC 



M2 



DO 10 I=I,N8RSY 



M7 



IF (NSYS ,EQ. NAMSYSdH GO TO 20 



MM 


10 

CONTINUE 



MS 



WRITE (IOT,6000) NSYS 



M6 



call exit 



M7 


20 

SYSNUM s I 



MS 



IF (PAGE(O)l WRITE (I0T,600I) NSYS,N) 



M9 



SCRIT = 1 



SO 



IF (NCRIT ,E0. NSPC) SCRIT = 2 



SI 



INTGSY = 2 



S2 



IF (INTGR .EQ. ILST) INTGSY S I 



S7 

c 





SM 

c 


READ component INPUT DATA 



ss 

c 





S6 



CALL COMPIL 



S7 

c 





S8 

c 


00 SYSTEM CALCULATIONS FOR THE OIVEN SYSTEM 

S9 

c 





60 



CALL CRYCON 



61 

c 





62 

c 


IF THIS IS AM INTEGRATED SYSTEM - 

GO READ 

NEXT 

67 

c 


SYSTEM NAME 



6M 

c 


IF IT IS A LAST CARO EXIT 



6S 

c 





66 



IF (INTGSY .EQ. 2) GO TO 1 



67 



CALL EXIT 



68 



END 
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SUBROUTINE CRYC0N 


61S7I7*TPFS.CRYC0N 


1 

2 

C 

C 



1 

C 



W 

C 



s 

C 


******* THIS SUBPROGRAM HAS BEEN MODIFIED FOR USE WITH THE ****** 

6 

C 



7 

c 


******* ** 00 NOT USE WITH TfIMM ** ****** 

6 

c 



9 

c 



10 

c 



T 1 



SUBROUTINE CRYCON 

12 

c 



.19 



logical oiag,jp 

m 

c 



IS 



INCLUDE CCNTRL 

\b 



INCLUDE CWEYS 

17 

c 



18 



KEYl = 1619 

19 

c 



20 



o 

II 

21 

c 



22 



!F(SySNUM,NE.21 GO TO 1 0 

29 



DO 6 I 5 1 t2 

29 


6 

KSUBC(2*I+I) s JAPUS(SCRIT»I) 

2S 

c 



26 


10 

I s 1 

27 



K s 0 

28 



LREPT s 0 

29 

c 



90 


20 

JKM : KSUBC(SYSNUM,I| 

91 

c 



92 

c 


IF ZERO have REACHED END OF CALLING SEOUENCE 

99 



IF (JKM ,EO. 0) GO TO 2200 

99 

c 


MOTRC - IS DIAGNOSTIC TRACE SWITCH {INPUT IN CONTRL) 

9S 



IF (MOTRC(JKM) .EO. 0) GO TO SO 

96 

c 


TURN ON OIAG. TRACE 

97 



JP = OIAG (-1 t6HCRYC0N) 

98 

c 


CALL ROUTINES DEPENDING ON SYSTEM SPECIFIED (SYSNUM) 

99 


SO 

GO TO ( l00t200.90O*900f9SOtSO0tSS0t600t700*800.9n0.9S0t lOOOItJKM 

90 

c 



91 


100 

CALL ACCRES 

92 



GO TO 2000 

99 

c 



99 


200 

CALL ACOWT 

9S 



GO TO 2000 

96 

c 



97 


900 

GO TO (9IOt9SO)*SCRIT 

98 

c 



99 


910 

call apusiib 

SO 



GO TO 2000 

SI 

c 



S2 


9S0 

CALL APIISUP 

S9 



GO TO 2D00 

S9 

c 



SS 


900 

CALL CMPCAL 

S6 



GO TO 2000 

S7 

c 
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CRYCON 


S8 


9S0 

CALL FUELCL 

S9 



GO TO 2000 

60 

c 



61 


SOO 

CALL CONSim 

62 



60 TO 2000 

61 

c 



6M 


SSO 

CALL ECLSS' 

6S 



GO TO 2000 

66 

c 



« •• 

O f 


600 

CALL Li OPES 

68 



GO TO 2000 

69 

c 



TO 


700 

CALL TANK 

71 



GO TO 2000 

T2 

c 



71 


800 

K = K + 1 

79 



IF (SYSNUM . 

7S 

c 



76 



CALL TStZEl 

77 



60 TO 2000 

78 

c 



79 


900 

CALL WTACC 

80 

c 



81 


9S0 

CALL HZAPU 

82 

c 



81 


1000 

CONTINUE 

89 

c 



8S 

2000 

CONTINUE 

86 



IF(LREPT1 10 

87 

c 



88 

2001 

IF(MOTRC(JKM 

89 

c 



90 

c 



9| 

c 



92 



JP = OIAG (-, 

91 

c 



99 

2100 

! = I + 1 

9S 



IF(I-9) 20t2i 

96 

c 



97 

2200 

CONTINUE 

98 

C 



99 

c 



100 



CALL OTPWSM 

101 

c 



102 



RETURN 

101 



END 


turn off dugnostic trace sentinel 

>t6HCRYC0N) 

)f?200 

END OF PROCESS THIS SYSTEM 
PRINT COMPONENT HEIGHT SUMMARY 
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PR{3CEDURE DEFINITipN PROCESSOR CTAB 

61S7I7*TPF$,CTAB 


1 

CTAB* 

PROC 


2 

C 



1 


PARAMETER NTBN = SSt NSBZ a 90 

M 

c 



S 


INTEGER TLA, TYPE 

6 

c 



7 


COMMON /CTAB/ 

TLA(NTBN),Nv»TyPE,NIP,NO,xTAB(NSBZ),VTAB(NSBI), 

8 


1 TAB(6,S) , JTABIO.NLTBL 

9 

c 



10 


DIMENSION ITAB(6,S) 

1 1 

c 



12 


EQUIVALENCE (ITAB.TABl 

1 7 

c 



m 

c 

***** CTAB 

VARIABLE DEFINITION 

IS 

c 



16 

c 

TLA 

- TABLE LOCATION ARRAY 

17 

c 


THIS ARRAY CONTAINS THE BEGINNING DRUM ADDRESS 

18 

c 


- 1 , FOR UP TO SO TABLES 

19 

c 



20 

c 

NV 

- NUMBER OF values IN THE INPUT TABLE (NVOOl), 

21 

c 



22 

c 

Type 

- type of THE INPUT TABLE (0 s COEFICIENT, 

29 

c 


1 s DESCRETE ). 

29 

c 



2S 

c 

NIP 

- NUMBER OF TABLE VALUES TO BE USED IN 

26 

c 


INTERPOLATION (NIPCNV), 

27 

c 



28 

c 

NO 

- number of dimensions for the input table 

29 

c 


(MO<7). 

10 

c 



11 

c 

xtab 

- ARRAY OF COEFICIENTS FOR POLYNOMIAL EVALUATION 

12 

c 


OR ARRAY OF VALUES OF THE INDEPENDENT VARIABLE 

11 

c 


FOR INTERPOLATION. 

m 

c 



IS 

c 

ytab 

- array OF VALUES OF THE DEPENDENT VARIABLE 

16 

c 


FOR INTERPOLATION. 

17 

c 



18 

c 

tab 

- ARRAY OF VALUES OF THE REMAINING NO-2 

19 

c 

ITAB 

INDEPENDENT VARIABLES FOR INTERPOLATION, 

90 

END 




D-85 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


SUBR0UTINE HZAPU 


63S7I7*TPFS.HZAPU 

1 

2 C 
1 

M 

5 

6 

7 

8 
9 

I n 

i i 

12 C 

I 3 

m c 

15 c 

16 C 

17 

18 C 

19 

20 

21 C 

22 C 

21 C 

2M 

25 

26 

27 

28 
29 

10 C 

II 

12 C 

11 C 

14 C 

15 

16 

17 

18 
19 

40 

41 C 

42 

41 C 

44 C 

45 C 

46 


47 C 

48 C 

49 C 

50 

51 

52 

SI C 

54 C 

55 C 

56 

57 


SUBROUTINE HZAPU 

INCLUOE CAPU 
INCLUDE CCNTRL 
INCLUDE CnCYCL 
INCLUDE CENG 
INCLUDE CIOUNT 
INCLUDE CMATRL 
INCLUDE CPAGE 
INCLUDE CTANK 
include TAHLOK 

LOGICAL JPfPAGE 


FIND percent power FOR EACH DUTY CYCLE POINT 
TOTHPR s HPR * NAPU 
no 10 I = liKCYCLE 

PCTHP(I) = (NEOP • HP(in/TOTHPfi BFRALTION OF TOTAL 


FIND rated flow rate FOR EACH DUTY CYCLE POINT 

CALL FINTAB (NTBID(47I) 

XTAR( I ) : PTRBIN 

XTA8(21 s PRAT 

XTAB(I) s PAHB(I) 

XTABI4) : 1.0 

SPCR(I) s MIPE(4.XTA0) H LB/HP. HR, 

WDOTR(I) = (SPCR(I) * TOTHPRI/60.0 BLBS.PER MIN. 

find NOM.FLOW rate for each DUTY CYCLE PERIOD 

CALL FINTAB (NTBI0(47)) 

XTA8( I I s PTRBIN 

XTAB(2I = PRAT 

XTAB(I) = PAMB(I) 

XTAB(4) I PCTHP(I) 

SPCN( I ) = M1PE(4,XTAB) 

WD(I) = (SPCN(l)*HP(n*NEOP(I))/60.0 BLBS.PER MIN. 

the percent of full flow for the INTERVAL IS - 


PCWOOT(I) = W0( I )/WOOTR(I ) 

the gas generator exit temperature for the interval is - 

CALL FINTAB (NTBI0(49)( 

XTAB( I ) = PCWOOTl I ) 

GGXTMI I ) = MIPEI I .XTAB) 

THE CORRECTION FACTOR FOR THE NOM SPC IS - 

CALL FINTAB (NTBID(SO)) 

XTAB( I ) = GGXTM( I ) 


D-86 


LOCKHEED MISSILES 8e SPACE COMPANY 



LMSC-A991396 


HZAPU «•♦***** 


58 

59 

60 
61 
68 
61 
69 

65 

66 

67 

68 

69 

70 

71 

72 
71 
79 

75 

76 

77 
70 

79 

80 
81 
82 
81 
89 

85 

86 

87 

88 

89 

90 
9| 
92 

91 
99 

95 

96 

97 

98 

99 

too 
tot 
102 
101 
I 09 
I OS 
I 06 

107 

108 
109 
I 10 
I I I 
I 12 
II 1 
I 19 
I IS 


CFSPcn ) = MIPEI I ,XTAB) 

C 

MDcm = wDin * cFSPcm n lr per min. 

c 

C 7HE corrected FLOW RATE FOR EACH INTERVAL IS - 

c 

10 CONTINUE 
C 

C COMPUTE the max FLOWRATE AMO TOTAL PROPELLANT CONSUMED. 

C 

TIPWT : 0.0 
l/OOT = 0.0 
1=0 

00 20 II = I ,N0CYCL«2 

1 = 1+1 

WDOT = AMAX I (WOOT.WOCI ! ) » 

C 

WDOTKIl = WDOT/60.0 B LB PER SECOND. 

C 

TIPWT = TIPWT ♦ WOCdl* OCVCLE(II) 

C 

20 CONTINUE 
C 

C OUTPUT THE DATA TO THIS POINT. 

c , , 

c 

UP = PAGE(O) 

e 

WRITE (IOT.6000) 

6000 F0PMAT(//T18t '*•* INITIATE PROGRAM AND CHARACTERIZE CONSUMER PAPAM 
IfTERS ***'//l 

WRITE (IOT*600I) 

6001 FORMATITIO. '**•*****•*'. T96t'INlTIAL HYDRAZINE APU PROGRAM CALCULA 
ITIONS' .T9S. I ********** I //T2 1 < PARAMETER'. TIN, 'CYCLE- I T26 CYCLE-2 
2 ' ,T1S, 'CYCLE-1' .TRO, 'CYCLE-9'.T62, 'CYCLE-S',T79t 'CYCLE-6' ,T86, 

1 ' cycle-7 ' ,T98, 'CYCLE-8'.TI 10, 'CYCLE-9',TI 21. 'CYClE-I O' /) 

UP = PAGEI6I 
WRITE (IOT,6096) 

6096 F0RMATI/T2, 'COMPUTE THE PCT. HP REOD.-EACH DUTY CYCLE- AND TOTAL H 
IP AVAILABLE'/) 

WRITE HOT, 6002) ( ( PCTHP ( J ) * I 00 .0 ) , J= ) , KC YCLE ) 

6002 F0RMAT(T9, 'PCTHP = • , T 1 1, I 0 < F8, 1,9X ) ) 

WRITE HOT, 6001) TOTHPR 

6001 format (T9. 'T0THPR=',TI1,F8.2) 

WRITE (IOT.6097) 

6097 F0RMAT(/T2, 'COMPUTE THE SPECIFIC FUEL CONSUMPTION AND FLOWRATES FO 
|R THE RATED AND NOMINAL CONDITIONS'/) 

WRITE (IOT,6009) ( SPCR ( J ) , J= I ,KCYCLE ) 

6009 F0RMAT(T9, 'SPCR = ' , T 1 1 , I 0 ( F8 .1,NX )) 

WRITE (IOT.600S) ( WOOTR ( J ) , J= I .KCYCLE ) 

6005 F0RMATIT9, 'WOOTR = ' , T I 1, 1 01 F8 .9,9X )) 

WRITE HOT, 6006) ( SPCN ( U ), J= I .KCYCLE ) 

6006 F0RMAT(T9. 'SPCN = ' , T 1 1 , I 0 ( F8 . 1,9X ) ) 

WRITE (inT,6007) ( WO ( J ) , J= I , KCYCLE ) 

6007 F0RMATIT9, 'WD = ' ,T 1 1 . I 0 ( F8 . 9 , MX ) ) 

WRITE HOT, 6009) I ( PCWOOT ( J ) * I 00 . ) , J= I , KCYCLE ) 

6009 FORMAT (T9, ' RC W00T= ' , T 1 1, I 0 ( F8. 1,9X ) ) 

WRITE (IOT.6098) 
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******** 

I 16 
117 
I 18 
I |9 
120 
121 
I 22 
127 
I 2M 
I2S 

I ^ L. 

I C 9 

127 

128 
I 29 
I 70 

171 

172 
I 77 
I 74 

ns 

I 76 
I 77 
I 78 
I 79 

140 

141 

142 
147 

144 

145 

146 

147 

148 
I 49 

150 

151 

152 
IS7 
I S4 

155 

156 

157 

158 

159 

160 
161 
162 
167 
I 64 

165 

166 

167 

168 

169 

170 

171 

172 
177 


HZAPU ******** 


6048 F0RMa7(/T2,'c0MPU7E THE CORRECTED AND MaX, ELOWRaTES FOR THE APU U 
INITS'/) 

WRITE (IOT.60I0) ( GGXTM ( J ) , Js I . KCVCLE ) 

6010 F0PHAT(T4t 'GGXTM = ' .T I 7 . I 0 ( F8 . ? , 4X ) ) 

WRITE (107.6011) (CFSPC(J).Jsl .KCVCLE) 

6011 F0PMAT(T4, tCFSPC = ' . T I 7 . I 0 ( F8 . 4 . 4X ) ) 

WRITE (I0T.60I2) ( WDC ( J ). J= I . KCVCLE ) 

6012 F0RMAT(T4, 'WDC =' .T I 7. I0(F8,4»4X) ) 

WRITE (I0T.60I7) WDOT 

6017 F0RMAT(T4. 'WOOT(MAX)=i .TIS.FI0.S.T27. 'LB.PER MINUTE') 

WRITE (107.6014) wOOTi(i) 

6014 F0RMAT(T4. 'WDOTI = ' . T I 7 . F I 0 . 6. T2S . ' LB . PER SECOND') 

WRITE (107,6040) 

6040 F0PMAT(/T2. 'COMPUTE THE TOTAL FUEL CONSUMED AnD THE TOTAL LOADED', 
I /) 

WRITE (IOT.60IS) TIPWT 

6015 F0RMAT(T4, 'TOTAL PROPELLANT CONSUMED = ' ,T7S . F | 0. 7 , T47, ' LBS .OF HVDR 
lAZINE. • ) 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


total propellant loaded 

WTRES = TIPwT * (PCRSRV/IOO. ) 

WPTOT( I ) s TIPWT + WTRES 

volume and area of STORAGE TANK 

RHOHZN s 78.77726 - 0.07 * SITEMPM.I) 

VOTNK s (WPTOT( I )/RHOHZN) * 1,02 

ARTNK s 4,84 • ( V0TNK*»0.667) 

COMPUTE THE TANK WEIGHT 

MATLI s SMTvPE( 1,1) 

CALL FINTAB(NTBID(9)*MATLI ) 

FTUX s MIPE( I ,SITEMP( 1,1)) 

RHOFTZ = RHOLImATLI )/ l728.0/FTUX 

WTPV = 7000.0 * WPT0T( 1 )/RHOHZN * SOPRESd,!) * RHOFTZ 
WTBLAD = 0.14 * ARTNK 
WTTOT( 1 ) = WTPv ♦ WTBLAD 
TANK INSULATION WEIGHT 

TIWT(l,|) s ARTNK * RHOI ( S ITVPE (1 , I) ) * SITHIK (I , I ) / 1 2 . 0 


COMPUTE tank propellant HISTORY 
WHESUM s 0.0 
WDHEMX 3 0.0 
WHE 30.0 

VOLDPS 3 0.0 

WTOT 3 WPTOT( I ) 

I 3 0 

DO 70 12 3 I ,NDCVCL.2 
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HZAPU 


I7M 

175 

176 

177 

178 

179 

180 
|8I 
182 
181 
I 8M 
I8S 
I 86 

187 

188 
I 89 
I 90 

191 

192 
191 
I 9M 

195 

196 

197 

198 
I 99 
200 
201 
202 
201 
209 
ZOS 
206 

207 

208 

209 

210 
21 I 
212 
211 
219 

215 

216 

217 

218 

219 

220 
221 
222 
221 
229 

225 

226 

227 

228 
229 
210 
211 


I s I ♦! 

WOUT r WOC(l) • 0CYCLE(!2) 

WTOT = W70T - W0U7 
WPPEM( I I = W70T 
VOLOP = WOUT/RHOHZN 

VOLOPS = VOLDPS ♦ VOLOP 

VOLPHd) = VOTNK - VOLOPS 

PHE = SOPPES( 1 1 I ) 

THE = SlTEMPr 1,1) 

call ZFlND(THE,pHEi I7.ZHE) 

RHOGT z 199.0 * PHE/JZHE * FINORHl) * THE) 

WH = RHOGT * VOLOPS 8 LBS 

WDTHEd) S (WH - WHE)/0CYCLEU2) 

WDHEMX = AMAXI (WOHEMX.WOTHEI n ) 

WHE4D( n = WH - WHE 
WHE = WH 

WHESUM = WHESUM ♦ WHEAO(I) 

10 CONTINUE 
C 

WOOTl (2) s WOHEMx/60.0 
C 

C WEIGHT OF PRESSURA)(T GAS SYSTEM 
C 

WTOTPG s I.S * WHESUM ♦ 90,0 
C 

C TOTAL HELIUM LOAOEO 

c 

WPTOT(2) s WHESUM + 0.2 * WHESUM 
C 

C VOLUME, AREA, DIAMETER OP HELIUM TANK 

C 

THE s SITEMP(2, I ) 

PHE s S0PRES(2. 1 ) 

C 

CALL ZFINOITHE.PHE, I7.ZHE) 

RHOHE s 199.0 * PHE/IZHE * FIN0R(I7) • THE) 

C 

VOTKHE = (WPT0TI2) )/RHOHE 
C 

ARTKHE = 9.89 * ( V0TKHE*«0.666 ) 

C 

OITKHE t ( ( I .9098*{WPT0Tiai/RHOHE) )*»0.111) * (2.0 
C 

C WEIGHT OF HELIUM TANK 

C 

MATL2 : SMTyPE(2,I.) 

CALL FINTAB(NTRI0(9)+MATL2) 

FTUXI s MIPE( I ,SITEMP(2, 1 ) ) 

RHOFTX s RH0L(MATL2)/I728.0/FTUXI 
C 

WTHETK r 7000.0 * WPTOTI 2 ) /RHOHE • PHE * RHOFTX 

C 

WTT0T(2) 3 WTHETK 
C 

TIWT(2,I) 3 ARTKHE * RHOI (S ITYPE ( 2. I ) ) * 5 ITHI K ( 2, I) / 1 2. 0 
C 

C OUTPUT THE HISTORY DATA AND TANK WEIGHT 

C 
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2ia 

am 

ais 

ai6 

ai7 

278 

279 

290 
29 ! 
i92 
297 
299 

295 
29h 

297 

298 

299 
2S0 

291 

292 
297 
299 
299 

296 

297 

298 

299 
260 
261 
262 
267 
269 
269 
266 

267 

268 

269 

270 

271 

272 
277 
279 
279 
276 

277 

278 

279 

280 
281 
282 
287 
289 
289 
286 

287 

288 
289 


HZAPU 

*** 

WRITE 

( lOT 

H 

t60IA) 

WPTOTO ) 




6016 

format 

(T9. 

'TOTAL 

PROPELLANT LOADED 

s 

,T79,FI0.7) 


WRITE 

( lOT 

.6091 ) 





609 1 

format 

(/T2 

, 'COMPUTE the fuel TANK 

CHARACTERISTIC PARAMETERS' 


WRITE 

( lOT 

,6017) 

RHOHZN 




6017 

format 

(T9. 

'DENSITY OF HYDRAZINE 

s 

,T79,F|0.9) 


WRITE 

lOT 

,6018) 

VOTNK 




60 18 

format 

(T9t 

'VOLUME OF STORAGE TANK 

- 

,T79,FI0.9) 


WRITE 

( lOT 

,6019) 

ARTNK 




AH t Q 

FnHMAT 

/ TU • 

iCIlOCArC AOCA AC TAUU 

- 

. yfcr . r 

1 C ■ U ) 


WRITE 

( lOT 

,6020) 

WTPV 




6020 

format 

(T9, 

'TAN'< 

PRESS. VESSEL WGT. 

s 

,T79,F 

10.9) 


WRITE 

lOT 

,6021 ) 

WTRLAO 




6021 

FORMAT 

(T9, 

'TANK 

BLADDER ASSY WGT, 

s 

,T79,F 

10.9) 


WRITE 

( lOT 

,6022) 

WTTOTI 1 ) 




6022 

Format 

(T9, 

'TOTAL 

TANK assy, weight 

z 

.T79.F 

10.9) 


WRITE 

lOT 

,6027 ) 

TIWT( 1,1) 




6027 

format 

(T9, 

• TANK 

INSULATION weight 

s 

,T79,F 

10.9) 


JP = PAGE(O) 






WRITE 

(lOT 

,6099) 





6099 

FORMAT(T70 

, (•••A******, ,TR6, (HYDRAZINE APU CALCULATIONS CONT 


It 799 f '**********' //72t 'PARAMETER' tT |9t 'CYClE- I ' t T26t ' C VCLE-2 

2' tT78i 'cYCLE-7' iT90i 'CY cLE- 9' tT62t 'CVCLE-S' tT79t 'CYCLE-6' tT86i 
7'CYCLE-7' tT98t 'CYCLE-8' tTI lOf 'CYCLE-9 ' t T I 2 1 1 ' CYCLE- 1 0 ' / ) 

JP s PA6EI6) 


6092 

6029 

6029 

6026 

6027 

6077 

6028 

6078 
6097 

6029 

6099 

6079 
6072 
6077 


WRITE 

(lOT 

format 

(/T2 

WRITE 

( lOT 

format 

(/T9 

WRITE 

( lOT 

FORMAT 

(T9, 

WRITE 

( lOT 

FORMAT 

(T9, 

WRITE 

( lOT 

FORMAT 

( T9, 

WRITE 

( lOT 

FORMAT 

( /T9 

WRITE 

( lOT 

Format 

( /T9 

WRITE 

( lOT 

FORMAT 

(/T9 

WRITE 

( lOT 

Format 

(/T2 

1 ING LAW'/) 

WRITE 

( lOT 

FORMAT 

( /T9 

WRITE 

( lOT 

FORMAT 

(/T2 

IS'/I 


WRITE 

( lOT 

format 

(T9, 

WRITE 

( lOT 

format 

(T9, 

write 

( lOT 

FORMAT 

(T9, 


6092) 

'COMPUTE THE PRESSURANT GAS PARAMETERS'/) 

6029) (WPREM(J)tJsl tKCYCLE) 

'WPREM 3'iT|7ilO(F8.7t9X)) 

6029) (VOLRM(J)tJSl tKCYCLE) 

VOLREM s'tTI7tlO«F8,9t9K)) 

6026) (WOTHE(J)VJS)tKCYCLE) 
wnOTHE ='tT|7tlO(PI0.6t2X)) 

6027) (HHEAO(J)tJ=l tKCYCLE) 

9HFA00 ='tTI7tlO(FIO,6t2X)) 

6077) WOOT!(2) 

'MAX. HELIUM FLOWRATE = ' tT79tF I 0.6) 

6028) HHESUM 

'TOTAL HELIUM CONSUMED s ' t T79 1 F 1 0 ,6) 

6078) WPT0TI2) 

'TOTAL HELIUM LOADED = ' t T79 1 F I 0 , 6 ) 

6097) 

'COMPUTE the PRESSURANT GAS SYSTEM WEIGHT FROM THE SCAL 

6029) WT0TP6 

'PRESS. GAS system WGT. s ' t T79 1 F I 0 .9 ) 

6099) 

'COMPUTE THE PRESSURANT GAS TANK WEIGHT BY ACTUAL VALUE 

6079) RHOHE 

DENSITY OF HELIUM IN TANK = ' t T79 1 F 1 0. 6 ) 

6072) VOTKHE 

VOL. OF HELIUM TANK' ,T79,F)0.9) 

6077) ARTKHE 

SURF. AREA OF HELIUM TANK ' t T79 1 F I 0 . 9 ) 
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390 

291 

292 
291 
294 
29 '; 

296 

297 
29B 
299 
100 
101 
102 
101 
109 

105 

106 
107 


HZAPU 


write (101,60141 DITKHE 

6014 F0RMAT(T4, 'DIAMETER OF HELIUM TArK • ,T1S,F I 0, 4 ) 

WRITE (IOT,601S) WTHETK 

6015 FORMAT (T4, 'WE lOHT OF HELIUM TANK • ,T1S*F I 0.4 ( 

WRITE (I0T,6016» TIWT(2,I» 

6016 F0.RMAT(T4, 'HELIUM TANK INSULATION WOT. s ' , TIS ,F I O.M ) 

C 

c DO the Hydrazine apu configuration analysis 
c 

CALL HZNCMP 
C 

WRITE (I0T.6010) 

6010 F0RHAT(////T2S, '**♦** THE HYDRAZINE APU CALCULATIONS HAVE BEEN COM 
IPLETED ***•*> ) 

C 

RETURN 

C 

END 
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FUNCTI0N HZCVCW 

61S7I7*TPF$.HZCVCW 

1 FUNCTION HZCVCWlOiP. lOV) 

2 C 

1 C *** PROGRAM generates HEIGHTS FOR HYDRAZINE 

M C *** VALVESt REGULATORS AND CONNECTORS 

s c 

6 DIMENSION CI(M)< C2(N) 

7 C 

8 DATA Cl/-.20t -.1. 0.0* .2S/ 

9 data C2/-.10t O.Ot O.ltO.SO/ 

1 0 C 

i I IF ( IDV.EQ.O) tDV = M 

12 IF (P.LT. 1000.0) GO TO 10 

n IF (P.GE. 1000.0) GO TO 20 

IM C 

15 10 HZCVCW = 0.669H0SS2 * EXP(0.89AM63 * D) ♦ CKIOV) 

16 RETURN 

17 C 

18 20 HZCVCW = I.IRS68S7 * EXP ( 0.9 1 OH I S8 * D) ♦ C2(IDV) 

19 RETURN 

20 C 

21 END 
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SUBR0UTINE HZNCMP 


61S7I7*TPF$.HINCMP 

1 

2 C 
7 

s c 

6 

7 

S 

9 

10 
I I 
12 
I 7 
m 

15 

16 

17 C 

IS C 

19 C 

20 
21 
22 
27 
2M 

25 

26 

27 C 

28 C 

29 C 

70 

71 

72 
77 

74 

75 C 

76 C 

77 C 

78 

79 I 

MO C 

Ml C 

M2 C 

M7 100 

MM 


MS 

M6 

M7 

M8 

M9 

50 

51 

52 
S7 
SM 

ss 

56 

57 


I 10 
C 


I I I 


c 


SUBROUTINE HZNCMP 

INTEGER GSTATE 
LOGICAL PAGEt JP 

INCLUDE CAPU 
INCLUDE CCNFIG 
INCLUDE CCNTRL 
INCLUDE cnCYCL 
INCLUDE CENG 
INCLUDE CIOUNT 
INCLUDE CNAMFS 
INCLUDE CONST 
INCLUDE CPA6E 
INCLUDE CTANK 
INCLUDE TABLOK 

INITIALIZE ROUTINE 

IDX = 0 

ISIGN s I 
JKM SO 

Cl = I IS2.0/(GRAVTY*P!»*2) 

IFIPAGEIOn WRITE <I0T*60S0» 

WRITE (IOT«6020> 

JP s PAGE (71 

START CONFIGURATION LOOP 

DO 1000 II sliICNF 
IDX s IDX * ISIGN 

MACH(IDX) S 0,0 

MFLG(IOX) s 6H 

CALL GETCON(IOX) 

«*** branch to REQUIRED CONFIGURATION TYPE 

GO TO ( l00>2OOt7OO*MOOtMS0»SOOtMSOfMSOtM00*MOS,60Ot7OO»8OOi9O0f 
270i2S0.270.280»l I00|» CFUNCT 

SET UP the gas type **** 

IGAS s CFTyPE 

GSTATE = ICNFIG(S) 

IF(IGAS.EQ.JKM) GO TO HO 
JKM s IGAS 

ISIGN = I 

ISTRT(IGAS) s IDX ♦ I 

CONTINUE 

IFHGAS.EQ. 2. AND. GSTATE. EO.I) GOTO III 
GO TO 112 

!F(PAGE(On WRITE (I0T.60SII 
WRITE (IOT*6020) 

JP s PAGEI7) 
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S8 


1 12 

CONTINUE 

S9 

C 



60 



1F( I 1 .EQ. n 60 TO 999 

61 



IF( IGAS.E0.2.AND.6STATE.E0.I ) GO TO 999 

62 

e 



68 



PRES(rOX) = PRESnOX » IStGN) 

6M 



WDOTN(inX) = WDOTNdOX . IS16N) 

6S 



TEMP(IOX) = TEMPdOX - ISIGN) 

66 



GO TO 999 

67 

c 



68 


200 

GO TO 1000 

69 

c 



70 

c 


*** PROCESS A hydrazine APU TURBINE UNIT 

71 

c 



72 


280 

W00TN( lOX ) s WDOTI (IGAS) 

78 



PBES(IOX) s SOPRES(UIJ - 20.0 

79 



TEHPdOX) = SITEMPd.H 

7S 



GO TO 999 

76 

c 



77 


2S0 

GO TO 1000 

78 

c 



79 


270 

GO TO 1000 

80 

c 



81 

c 



82 

c 


*** PROCESS A BLADDER ASSY 

88 

c 



89 


280 

WDOTNdOX) s WOOTIdGAS) 

8*; 



PBES(IOX) = SOPRESd.l) 

86 



TEMPdOX) r SITEMP( IGAS. 1 » 

87 



WEIGHT! lOX) = WTBLAD 

88 



GO TO 999 

89 

c 



90 

c 


***** process a line ***** 

9| 

c 



92 


800 

WOOTNdOX) = wnOTN(IDX»ISIGN) 

98 



TEMP(IOX) : TEMPdOX-ISIGN) 

99 



PRES(IOX) = PRESI lOX-ISIGN) 

9*) 



GO TO ( 801 , 802 ), IGAS 

96 

c 



97 


801 

CALL FINTAH (NTBID(SI)) 

98 



FLMU = MIPEd, TEMPdOX)) 

99 



GO TO 808 

100 


802 

CALL FINtAB (NtBI0(S2)) 

101 



XTAB( 1 ) = PRESdOX) 

102 



XTA8(2) = TEMPdOX) 

108 



FLMU = MIPE(2,XTA6) 

1 09 

c 



lOS 


808 

GO TO (809, 80S), IGAS 

1 06 

c 



107 


809 

RHO r 78.77826 - 0.08002 * TEMPIIOX) 

108 



GO TO 806 

109 


80S 

CALL ZFINO(TEMP( I0X),PRF.SdOX), IT.ZHE) 

1 10 



RHO = 199.0 * PRES(IDX)/(ZHE * FlNORd' 

1 1 1 

c 



1 12 


806 

VElCTY = S76.0 * HOOTN( I0X)/(RH0 * PI * (1 

1 1 1 

c 



1 19 



REYNUM = VELCTY * RHO * 01 AM ( lOX I / d 2 . 0 * 

1 IS 

c 
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HZNCMP 


1 16 



FRCOEFdOXI = 0.7|6/(REYNUM**0.2S) 

1 17 

C 



1 18 



Flo a FRC0EF(t0X> * LOO ( |DX > /O ! AM( lOX ( 

1 19 



LDV a CFTyPE/IO 

120 



CFTYPE = CFTYPE - LDV*I0 

121 



GO TO SIO 

122 

C 



127 

C 


PROCESS A CONTROL »»»»» 

I2M 

C 



I2S 


400 

WDOTNMOX) a WOOTN ( I OX-!S I6N ) 

126 



TEMP(IOX) a TEMPI 10X-IS16N) 

127 



PRESIIdX) a PRESI I0X-ISI6N) . 

128 



OIAMIIOX) a AMINI lOtAnnOX^I >t01AMIIDX>l ) ) 

129 



GO TO (401 «402 ) t IGAS 

1 70 

C 



171 


40 1 

CALL FINTAH (NTBIOISI ) ) 

1 72 



FLMU a MIPEl I *TEMP( lOX) ) 

177 



GO TO 407 

174 


402 

CALL FINTAB (NTBID(S2)) 

ns 



XTARl 1 ) a PRESi lOX) 

1 76 



XTABI2) a TEMP(IOX) 

177 



FLMU a MIPEI2.XTAB) 

178 

C 



1 79 


407 

60 TO (404,4l0)tIGAS 

140 

c 



|4| 


404 

RHO a 78.77726 - 0.07002 * TEMP(IOXI 

142 



GO TO 411 

(47 


410 

CALL ZFINOITFMPI lOXl.PRESlIOX)* ITfZHEI 

1 44 



RHO a 144.0 • PRESn0X)/(2HE * FINDRIITl • TEMPdOX)) 

I4S 

c 



146 


41 1 

V6LCTY = S76.0 * WDQTNdOX ) / ( RHo • Pl * ( 01 Am (IDX ) **2 ) ) 

147 

c 



148 



REYNUM a VEICTY * RHO * 01 AM dOX ) / d 2 . 0 * FLMU) 

149 

c 



ISO 



FRCOEFdOXI a 0.7I6/(REYNUM**0.2S) 

ISI 

c 



IS2 



FLO a FRCOEF(IOX)*LOOdDX) 

IS7 



IDV a CFTYPE/ 10 

IS4 



CFTYPE a CFTYPE - IOV*IO 

ISS 



GO TO SIO 

IS6 

c 



IS7 

c 


***** PROCESS A REGULATOR ***** 

IS8 

c 



IS9 


40S 

WOOTN(IDX) a WOOTN (lOX-IS IGN ) 

160 



TEMP(IDX) a TEMPdOX-lSIGN) 

161 



PRESIIDX) a PRESdOX-ISIGNI 

162 



OlAM(IOX) a AMINMOIAM(lOX+dfDIAMdOX-l )) 

167 



GO TO (42lt422)f IGAS 

164 

c 



I6S 


421 

CALL FINTAB (NTBID(St 1 ) 

1 66 



FLMU a MIPEl 1 .TEMP(IOX) ) 

167 



GO TO 427 

168 


422 

CALL FINTAB (NTBID(S2)) 

169 



XTABI 1 ) a PRFSI IDX) 

1 70 



XTABI2) a TEMPI IDX) 

171 



FLMU a MIPEI2.XTAB) 

172 

c 



1 77 


427 

GO TO (4P4.4PS) . IGAS 
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*•*•**•• 


I7M 

ITS 

176 

177 

178 
I 79 
I SO 
181 
182 
I 8^ 

I o u 

I8S 
I 86 

187 

188 
I 89 
I 90 

191 

192 
197 
I 99 
I 9S 
I 96 
197 
I 98 

199 

200 
201 
202 
207 
209 

205 

206 
207 
206 

209 

210 
21 I 
212 
217 
219 

215 

216 

217 

218 

219 

220 
221 
222 
227 
229 

225 

226 

227 

228 
229 

270 

271 


HZNCMP 


C 

92U 

925 

c 

926 
C 

C 

C 


C 


C 

c 

c 

9S0 


c 

MSI 


9S2 


C 

9S7 

C 

MS9 

9SS 

C 

MS6 

C 

c 

c 


c 

c 

c 

soo 


RHO = 78.77726 - 0.07002 • TEMP(IOX) 

GO TO 926 

CALL ZFIND(TEMP( lOXI.PRESHOX), IT»ZHE) 

RHO = 199.0 * PRES(IDX)/(ZHE * FINORMT) * TEMPItOXl) 

VELCTY = S76.0 * WOOTNMOX » / ( RHO * PI * ( 0 1 AM ( lOX ) **2 )) 

REYNUM = VELCTY • 9H0 » 01 AM( IDX ) / 1 1 2. 0 * FLMU) 

FPCOEFIJOX) - 0. 7 i 6/ (fitVNUM«"0.2S i 

FLO = FRCOEFI I0X)*L0DtIDX) 

IDV = CFTYPE/IO 

CFTYPE = CFTYPE - IOV*IO 


IX 

OLPREG 
PPES( lOX) 
GO TO S6I 


lOX - ISIGN 

iSOPRES(IGAStl).I.O) . PRES(IDX) 
PRESnX) ♦ ISIGN*DLPREG 


***** PROCESS A FITTING ***** 


WOOTN(inx) s WOOTNI IDX-ISIGN) 

TEMP(IDX) s TEMPI IDX-ISIGNI 
PRES(IDX) S PHFS(IDX-ISIGN) 

DIAM(IOX) s AMINI(0IAM(I0X+H.01AM(I0X-I)) 

GO TO (9SI *9S2) I IGAS 

CALL FINTAB (NTBIDISI I ) 

FLHIJ = MIPEl I.TEHPlIOXn 
GO TO 9S7 

CALL FINTAB (NTBID(S2|) 

XTAB( I ) r PRES(IDX) 

XTARI2) = TEMP(IOX) 

FLMU = MIPEI2tXTAB» 


GO TO (9S9.9SS) »IGAS 

RHO = 78.77726 - 0.07002 * TEMPIIDX) 

GO TO 9S6 

CALL ZFIN0(TEMP(IDX).PRES(I0X),l7tZHE) 

RHO r 199.0 * PRESI !DX)/(ZHE * FINDRII7) * TEMPIIDX)) 

VElCTY = S76.0 * W00TN(IDX)/(RHo * PI * (DIAmI I0X)*»2) ) 
REYNUM = VELCTY • RHO * 01 AMIIDX ) / ( 1 2.0 * FLMU) 


FRCOEFlinx) = 0.7I6/|REYNUH**0.2S) 


FLO 

LOV 

CFTYPE 
GO TO SIO 


= FRCOEFIIOX)*LOOIIOX) 
z CFTYPE/IO 
= CFTYPE - LDV*IO 


***** PROCESS A TAP ***** 
WOOTNIIDX) = WOOTNI IDX-ISIGN) 
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HZNCMP 


212 



TEMP(IOX) = TEMP(!DX«ISIGN) 

211 



PRES(IDX) = PRESMOX-lStGN) 

214 



DIAH(IDX) - AMINI (DIAM|I0X4n«0IAH(IDX>l )) 

21S 



GO TO (90l*902liIGAS 

21<> 

C 



217 


901 

GALL FInTAB (nTBI0(9I ) 1 

218 



FLMU = MtPE( 1 fTEMPt lOX) ) 

219 



GO TO 901 

240 


902 

CALL FINTAB (NTBID(92I) 

241 



XTAH( 1 ) = PRES< lOX) 

242 



XTAR(2) = TEMP(IOX) 

241 



FLMU = MIPE(2tXTAB» 

244 

C 



24S 


901 

GO TO (904,909 ) 1 IGAS 

246 

c 



247 


904 

RHO = 78.77126 - 0.01002 * TEMP(IDX) 

248 



GO TO 906 

249 


909 

CALL ZFIND(TFMP( 10X),PRES(I0X), t7,ZHE) 

2S0 



RHO z 144.0 * PRES(IDX)/(ZHE * FINDRMT) * TEMPHOX)) 

2SI 

c 



2S2 


906 

VELCTV a 976.0 * WOoTN ( I Ox ) / ( RHo * Pl * ( 0 1 Am( lOX ) **2 ) ) 

2S1 

c 



2S4 



REYNUM : VELCTV * RHO * 01 AM (lOX ) / ( 1 2. 0 * FLMU) 

2SS 

c 


2S6 



FRCOEF(IOX) s 0.1|6/(RE¥NUM**0.29) 

2S7 

c 



2S8 



FLO s FRC0EF(10X)*L00( lOX) 

299 



LOV s CFTYPE/IO 

260 



CFTYPE = CFTYPE - LOV*IO 

2A( 



GO TO 910 

262 

c 



261 

c 


***** COMPUTE LINE, CONTROL, FITTING OR TAP DELTA PRESSURE. 

264 

c 



269 


910 

IX s lOX - ISIGN 

266 

c 



267 



GO TO(920,990),GSTATE 

268 

c 



269 

c 


***** delta PRESSURE WHEN GASEOUS 

270 

c 



271 


920 

CALL ZFIND(TEMP(IX),PRES(1X),I7,Z) 

272 



RHO = I44,0*PRES(IX)/(Z*FINOR( 1 7 ) *TEMP ( I X ) ) 

271 



OELP = CI»FLO»(WOOTN(IX)/CNOPER)*»2/(RHO*OIAM(IOX)«»4) 

274 

c 



27S 

c 


***** IF THE PERCENT OF PRESSURE CHANGE EXCEEDS I PCT. RECOMP 

276 

c 


***** UTE THE OELTA-P, IF NOT COMPUTE THE NEW PRESSURE. 

277 

c 



278 



IF(DELP/(PHES( IX) + OELP) - 0.01)960,960,910 

279 

c 



280 

c 


CALCULATE NEW RHO OF GAS 

281 

c 



282 


910 

CALL ZFINn(TEMP(IX),PRES(IX)*0ELP/2.0, I7.Z) 

281 



RHO = I44.0*PRES(IX)/(Z*FIN0B( I 7 )*TEMP ( IX ) ) 

284 



OELP = CI*FLO*)WDOTN(IX)/CNOPER)*»P/(RHO*01AM(IOX)**4) 

289 

c 



286 



GO TO 960 

287 

c 



288 

c 


DELTA-P FOR LIQUID STATE 

289 

c 
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hzncmp 


290 

291 

292 
291 
299 

295 

296 

297 

298 

299 
100 
101 
102 
301 
109 

105 

106 
107 
lOfl 

109 

110 

II I 

112 

III 

119 

115 

116 

117 

118 

119 

120 
121 
122 
121 
129 

125 

126 

127 

128 
129 
110 
111 
112 
111 
119 

115 

116 

117 

118 
119 

190 
19 I 
192 

191 
199 

195 

196 

197 


C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


SSO CONTINUE 

RHOHZN = 78.77126 - 0.01002 * SITEMP(|H) 

OELP r CI*ELO*(WDOTN( IX)**2)/(RH0HZN*DIAH( I0X)**9) 

***** COMPUTE NEW PRESSURE 

S60 PRES(IOX) = PRESnXI + IStGN*OELP 

***** COMPUTE THE GAS MACH NUMBER 


CALCULATE NEW GAS DENSITY 
CALL ZFIND(TEMP( IX).PRES(1DX|. I7,Z) 

RHO = |99.0*PRES( IOXI/(Z*FINOR( I 7 )*TEMP ( I X ) ) 

IFIGSTATE.EO. I ) CALL VGVSHE ( lOX «RHO ) 

S6I CONTINUE 

***** COMPUTE LINE HEIGHT ***** 


IF(CFUNCT.EO.l) GO TO S62 
IFICFIINCT.EQ.S) GO TO S62 
IF(CFUNCT,E0.6) GO TO S62 
1F(CFUNCT.EQ,7) go to S62 
IF(CFUNCT.EQ.8) GO TO S62 
GO TO S70 
C 

S62 CALL LWFGHT( lOX.LOV) 

GO TO 999 


c 

C ***** COMPUTE CONTROL WEIGHT ***** 

C 

S70 WEIGHT(IDX): HzCVCW(OIAM(IDX)»PRES(IDX),IOV) 

GO TO 999 
C 

600 GO TO 1000 

c 

c ***** PROCESS A tank OR SUPPLY ***** 

C 


700 INDXTKI I ) = lOX 

!F(SIPRES( IGAS* I n 720.710.720 
C 

C IF NO TANK input PRESSURE - USE CALCULATED VALUE 


C 

c 

c 

c 

c 

c 

c 


710 SIPRESI IGAS. I ) r PRES ( I DX-I SIGN ) 

GO TO 790 

**** CHECK INPUT Tank pres, against reoo. calculated PRESSURE. 

* IF INPUT TANK PRES. IS LESS THAN CALC. VALUE - WRITE MESSAGE. 

* set Tank input pressure equal to reqd. pressure. 

**** IF not. CONTINUE WITH CALCULATIONS. 

720 IFISIPRESI IGAS. I I . PRES ( lOX-ISIGN ) ) 710.790.790 


C 


710 WRITE 
GO TO 


( IOT.6000 ) 
710 


SIPRES(IGAS.I). PRES! IDX-tSIGN) 
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3U8 

■J49 

150 

151 
3S2 
3S-J 

355 
1SS 

356 
1ST 

158 

159 

160 
161 
162 
161 
169 

165 

166 

167 

168 

169 

170 

171 

172 
171 
179 

175 

176 

177 

178 

179 

180 
181 
182 
181 
189 

185 

186 

187 

188 

189 

190 

191 

192 
191 
199 

195 

196 

197 

198 

199 

900 

901 

902 
901 
909 

905 

906 

907 

908 

909 

910 
91 I 
912 

911 
919 

915 

916 

917 

918 


hzncmp ******** 

790 PRES(IOX) s SIPBES( I6ASt I ) 

C **** ALSO CHECK TANK TEMPERATURE 

C 

IF(S1TEMP<1SAS. D) 760.7S0.760 
7S0 SITEMP( IGAS. I ) s TEMP ( I OX-ISIGN J 
C 

760 TEMP(IDX) = StTEMPdfiAS. I ) 

C 

WOOTN(IOX) , = W00TN( IDX-ISIGN) 

C 

WEIGHTdOX) = WTTOTdGASI 
WI dOX ) = 7IHT(IGAS. I ) 

GO TO 999 
C 

800 GO TO 1000 

c 

900 GO TO 1000 

C ***** ENO OF CONFIGURATION PROCESSING LOOP ***** 

C 

999 CONTINUE 
C 

IF( .NOT.PAGE( n ) SO TO 1998 
C 

1998 CONTINUE 
C 

KFUNCT s FNAME(CFUNCT) 

^ WRITE dOT,6010) KFUNCT. COOE(tOX). CFTvPE. CNOPER. CNSTPY. ISIGN, 
t IDX. IGAS. 6STATE. FRCOEFIIOX). LOO(IOX). 

2 OIAMdOX). ITHlCKdOXI.PRESdOX). TEMP(IOX). 

1 WOOTNdOX). WEIGHTdOX). MACHtlDX). MFLGdOX) 

^ IF(PRESdOX).GE.O. .AND. TEHPdDX) .6E,0. ) GO TO 998 

C 

WRITE dOT.6090) 

CALL EXIT 
C 

998 CONTINUE 

1000 CONTINUE 
I 100 CONTINUE 

C 

c FOR WEIGHT SUMMARY 

C 

KHENO : IDX-I 

KOENO = lHSTT-2 

C 

RETURN 

C 

c OUTPUT FORMATS 

^6000 FORMAT! '0 *0IAGN0STIC* TANK INPUT PRESSURE IS LESS THAN THE REOUIR 
lEO PRESSURE, TANK PRESSURE SET's REQUIRED PRESSURE ,•/ I SX. ' TANK INP 
2UT PRESSURE s'. FT. 2.'. REQUIRED PRESSURE = '.FT, 2) 

6020 FORMAT! '0 F CODE FT NO NS IS IDX G GS FCOEF L/D 

I OIAM ITHICK PRES TEMP HOOT WEIGHT MACH M 

2FLAG'/' ') 

6010 FOPMAT!2XA1.2XA6.I1.6I9.F9.6.FI2.9.2F8,9.FI0.9.F8.2.F7.9.F9,1, 

I FI0.7.1X.A6) 

^6090 F0RMAT!T99. '*** TERMINATE - NEGATIVE TEMP. OR PRESSURE. ***d 

^60S0 F0RMATI/T18.'*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETE 
IPS ***' ) 

60S I FORMAT! /T12. '*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETE 
IRS - CONTD. ***' ) 

C 

END 
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SUBROUTINE OTRTNS 


6TS7 I 7*TPF$.OTRTNS 

1 C 

2 C 

T C 

R 

s c 

6 C 

7 C 

8 C 

8 C 

i 0 C 

I I C 

12 C 

IT C 

14 C 


GENERAL OUTPUT ROUTINES 
SUBROUTINE OTPHEX 


***•******•*•*•***••«*•*•*••*******»*******••***•**********•****** 

******* THIS subprogram HAS BEEN MOOIEIEO FOR USE WITH THE ****** 
•»»*••* HYORAZINE APU PROGRAM ****** 

******* ** Qo fjOT „5£ WITH TCIMM ** ****** 

********************************, *,*,,*«***,**^*^,****,*,,^^*,^,j^^ 


15 

16 
17 

1 8 
|R 
20 

2 I 
22 

23 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 

14 

15 
■>6 

17 

18 
19 

40 

41 

42 
41 

44 

45 

46 

47 

48 

49 

50 

51 

52 
SI 
S4 
BS 

56 

57 


LOGICAL JP*PAGE 

c 

INCLUDE CACCUM 
INCLUDE CAPU 
INCLUDE CCNEIG 
INCLUDE CECLSS 
INCLUDE CENG 
INCLUDE CFLRAT 
INCLUDE CFUEL 
INCLUDE CHEX 
INCLUDE CHSOHC 
INCLUDE CIOUNT 
INCLUDE CNAMES 
INCLUDE CPUMP 
INCLUDE CTANK 
INCLUDE CTUHPN 
C 

DATA IDMHX/ MHX/ 

C 

6110 FORMAT! IHOiTSI . '*** COMPONENT WEIGHT SUMMARY *** • //T2T, I . , .PROPELL 
|ANT,,.i,T87»',, .HELIUM, , , i / Tilt ,T9 I / T18» 'COMPON 

PENT ' Ts2, ' INSULATION 'T98t 'COMPONENT 'T I I 2 , ' I NSULaT I ON ' / Til , 'COMPON 
lENT'T27t 'C o0F't18, 'WT. ( lBS I ' TS2. • WT. ( lBS )' T 7 I »' COMPONENT ' T87 i 
4IC0DE'T98. 'WT. ( LBS ) • T I I a, i WT , (LBS)'/) 

6112 FORMAT! |H0,T47. '*** COMPONENT WEIGHT SUMMARY TOTALS *** ' ) 

C 

NIENTH = 0,0 

C 

entry OTPWSM 

c OUTPUT WEIGHT SUMMARY DATA 

IF !PAGF! 0)) WRITE !I0T,6II0) 

JP = PAGE ( 8) 

11 = lOSTT 

12 = IHSTT 
KH2 = I 
K02 3 I 
MVL = 1 

NCPH = KHEND - IHSTT 
NCPO 5 XOEND - lOSTT 
hXCP - NCPO 

IF (MXCP .LT. NCPH) MXCP s NCPH 
uaiWT = 0. 

HPSWT = 0. 


D-lOO 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


OTRTNS ******** 


<>8 

60 

61 

62 

61 

6M 

65 

66 

67 

68 

69 

70 

71 

72 
71 
79 

75 

76 

77 

78 

79 

80 
8 I 
82 
81 
89 

85 

86 

87 

88 

89 

90 
9| 
92 

91 
99 

95 

96 

97 

98 

99 
100 
101 
102 
101 
109 

105 

106 

107 

108 
109 


02IWT a 0, 

02SWT a 0. 

C 

DO 770 IrliMXCP 
GO TO (7n0f710 ) tK02 

C SET UP OXlOrZER SIDE 

700 n a II ♦ I 

IF (II .LE. XOENO) GO TO 710 
k02 a 2 
MVL ,a tIVL - I 
GO TO 710 

710 CALL GETCON (II) 

IF (CFUNCT ,EQ. I ) GO TO 700 
KONAM s FNAMF(CFUNCT) 

02IWT a 02IWT + WI ( I I ) 

02SWT a 02SWT ♦ WEIGHT(II) 

C 

710 GO TO (790f760) fKH2 
C SET UP FUEL SIDE 

790 12 a 12 + I 

IF (12 .LE, KHENOl GO TO 7S0 
KH2 a 2 
HVL a MVL - 2 
GO TO 760 

7S0 CALL GETCON (12) 

IF (CFUNCT .EO, I ) GO TO 790 
KHNAM a FNAMF(CFUNCT) 

H2IWT a H2IWT * WI(I2) 

H2SWT a H2SWT + WEIGHT(I2) 

C 

760 IF (MVL .EO. 0) GO TO 780 

IF (PAGE( I ) )WP1TE ( 10T.6I 10) 

C PRINT A LINE 

CALL OUTPW (MVLfKONAMfCODEdI ),WEIGHT(I I ),WI( I I ) , 
I KHNAM,C00E(I2)»WEIGHT( 12) .WI (12) ) 

770 CONTINUE 
C 

780 CONTINUE 

JP a PAGE ( 9) 

CALL space 
WRITE (I0T.6II2) 

TTLSWT a ENGWT ♦ H2SWT ♦ H2IWT ♦ 02SWT ♦ 02IWT 
CALL SPACE 

C PRINT SYSTEM WT. TOTALS 

CALL OUTPFI (9.LCNFI .ENGWT) 

DO 790 lal.S 

CALL OUTPFI (N.LCNFI ( I .I*l ),WTOFSY(I) ) 

790 CONTINUE 
RETURN 
C 

c 

END 
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SUBR0UTINE ST0DTA 


61S7I7*TPF$ 

I 

a 

7 

s 

6 

7 

8 
<) 

10 

I I 

la 

I I 

m 

I*; 

16 

17 

18 
l<) 

an 

ai 

aa 

ai 

aM 

as 

86 

37 

38 

a<» 

10 

II 

ia 

11 

m 

15 

16 

17 

18 
19 

90 

91 

9a 

91 

99 

95 

96 

97 

98 

99 

50 

51 

sa 

SI 

SM 

ss 

56 

57 


STODTA 

C 

C 

c ****************************************************************** 

c 

c ******* THIS subprogram HAS BFEN MODIFIED FOR USE WITH THE ****** 

C »«»***» HYDRAZINE APU PROGRAM ****** 

C ******* ** 00 NOT USE WITH TCIMM ** ****** 

C 

C ****************************************************************** 

c 

SUBROUTINE STODTA 


C 


c 

c 

c 


c 


c 


c 

c 

c 


INCIUDE CAPU 
INCLUDE CONFIG 
INCLUDE CCNTRL 
INCLUDE CECLSS 
INCLUDE CFLRAT 
INCLUDE CHEX 
INCLUDE CHSORC 
INCLUDE CIOUNT 
INCLUDE CNATRL 
INCLUDE CNAMES 
INCLUDE CONST 
INCLUDE CPAGE 
INCLUDE CPUMP 
INCLUDE CTANK 
INCLUDE CTURBN 
INCLUDE TABLOK 

***** POP CAPU 

DATA ( (1.ABUI ( I.JItlSl t9),Jsl»8) 

I 'OXYGEN LOADED (LRS) ' 

a 'TOTAL LOADED ILBSP 

1 'OXY. Max. flow (lb/sec)' 

9 'WOOT OX-TURB-GG (LB/SEC)' 

DATA ( (LAPUal I.J) ,1 = 1 I I ) 
I 'GAS GFN. CONSUMPTION ' 

a 'AREA OF storage TANK ' 

1 'H2 VENT - absorb TK LEAK* 

9 IWT, OF ACCUMULATOR TANK • 

S 'WT. OF RFSIO, IN ACCUM, • 

DATA ( (LAPUK I ,J) ,1 = 1 , | | ) 

I 'WTG. OF FLUID TO G.G. ' 

a 'VOLUME OF STORAGE TANK < 

1 'WT H?-ABSRB TK+PMP HT LK ' 

M ',TOTAL WT. OF PROPELLANT ' 

s 'accumulator capacity • 

***** POP CCNFIO 

DATA ( (LCflF I ( I , J) , 1 = 1 ,9),J=I ,6) 

I 'OXIDYZER SYSTEM WT. -LBS' 

a ‘FUEL system WT. - LPS ' 

1 'TOTAL SYSTEM WT, = LBS ' 


***** 

/ 'PROPELLANT TEMP, (DEG-R)'. 

, 'HYDROGEN LOADED (LBS)'» 

» 'PROP, used by APU (LBS)'» 

, 'HYD, max, flow (LB/SEC)'* 

/ 

/ 'WT. OF CIRCL. COMPRESSOR', 

» 'VOLUME OF STORAGE TANK ', 

, 'WEIGHT OF STORAGE TANK 

, 'WT. OF RESIDUAL IN TANK ' , 

, 'CAPACITY OF accumulator ', 

, 'TOT. WT. OF PROPL. REQD,'/ 

/ 'TEMP, OF G.G. Exhaust •, 

, 'SURF. AREA OF STO. TANK 

• 'HEAT LEAK INTO STO, TANK', 

, 'TOT.Ha-VENTED FOR HT.LK.', 

, 'STORAGE Tank residual ', 

f 'accumulator tank RESIDUL'/ 

***** 


/ 'CONSUMER weight . LBS ' , 
, 'OXID INSULATION WT - LBS' , 
f 'FUEL INSULATION WT - LBS' t 
/ 


D-102 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


STOOTA ******** 


58 C 

59 C ***** POP eCNTRL ***** 

60 C 

61 C 5UB CRIT. super CRIT, 

62 DATA ( ( INRLK ( I , I , J) • 1 = 1 «S) t J=l t2) / ltt«UI«U> (•UOtUO / 

61 DATA ( ( INBLK (2, I , J) t 1 = 1 .Sl«J=l >2) / ItUOil.O / 

69 DATA ( ( INPLKdt I • J) 1 1 = 1 >S) t J=l t2) / OtOtOtOtOt OtUOtOtO / 

65 DATA ( ( 1NBLK(9< 1 • J) < 1 = 1 >S) t J=l t2) / UtltOtUOt OiUliOil / 

66 DATA ( ( INBLK (S< 1 • J) < 1=1 (S) (JRI t2) / ItliUltOt OiOiOiOiO / 

67 DATA ( ( INRLK ( I • J ) • 1 = I >S) • J=l t2) / 0.0. 0,0,0, 0,0, 0,0,0 / 

68 data (KSUBC( I , 1 ) , I= I ,N8RSR ) / 6, 9, 10. R, ft, I, 10, II, 2/ 

69 DATA (KSUPCI?. n < 1= I .NBRSR) / 6, 1« 9, 10,11, 2, 0, 0, 0/ 

70 DATA (KSUBC ( 1, 1 I , 1 = I .NBRSR ) / 7, 0, 0, 0, 0« 0, 0, 0, 0/ 

71 DATA (KSIIRC (9. I) , 1 = I .NBRSR) / S, 9, 0, 0, 0, 0, 0. 0, 0/ 

72 DATA (KSUPCIS. 1 I , 1= I .NBRSR) / 6, 9, 10, 9, ft, |, 10) II, 2/ 

71 DATA (KSUBC(6, 1 ) , 1= I .NBRSR) /I2, 0, 0, 0, 0» 0, 0, 0, 0/ 

79 DATA JAPUSl I , I ) , JAPUSl I ,2) / 9. 1/ 

75 DATA JAPUS(2, I ),JAPUS(2.2) / 1, 9/ 

76 DATA NAmSYS / ' ACP ' , ' APU ' , ' EC/ ' » ' FUE ' , ' OMS ' , ' HZN ' / 

77 C 

78 C ***** POP CFLRAT ***** 

79 C 

80 DATA ((LFRT(I,J),1=|,1),J=I,7)/ 

81 I iWDOT OX-TUPB.-G.G, ' , iWDOT HY-TURB, -G. G , ' , ' WDOT BOTH TURB.-G6', 

82 2 'WOOT OXY HEX . -G ,G HOOT HVO HEX . -G , 6 , ' » ' HOOT BOTH HEX.-G.G', 

81 1 'TOTAL flowrate ** ' / 

89 C 

ftS C ***** POP CHEX ***** 

86 C 

87 DATA miNAM(l,J).I = l,2).J=),9) / 

88 I ' BOILING '.'SUP-CRtTICAL'.'PARALLFL-FUO', 'COUNTER-FLOW'/ 

89 DATA ( (LHX I ( I , J) ,1=1 ,9) , J=l , ID)/ 

90 I 'THEPML conductance RATIO', 'HOT FLUID FLOW RATE ', 

91 2 'COLO FLUID DELTA - P ', 'CAPACITY RATIO ', 

92 T iNimpEP OF TRANSFER UNITS' , 'COMPUTED VALUE OF UA ', 

91 9 'COMPUTED value OF W/UA », 'WEIGHT OF SUBUNIT ', 

99 s 'Weight of heaT exchange«','hex subunit type *** '/ 

95 data ((LMx2(I,J),1=I,9),J=I,I9)/ 

96 I 'COLO FLUID INLET TEMP ','COLD FLUID OUTLET TEMP ', 

97 2 'COLO FLUID SPECIFIC HEAT', 'COLD FLUID FLOW RaTF ', 

98 1 'HOT FLUID INLET TEMP ','HOT FLUID OUTLET TEMP ', 

99 9 'HOT FLUID SPECIFIC HEAT ','HOT FLUID FLOW PATE ', 

100 S 'COLO SIDE effectiveness ','HOT SIDE EFFECTIVENESS ', 

101 6 'TOTAL EFFECTIVENESS ','HEAT EXCHANGER UA/A-WALL', 

102 7 'HEAT exchanger DIAMETER ','HEAT EXCHANGER LENGTH '/ 

101 DATA LHXI / 'HEAT EXCHANGER CHARACTERISTICS' / 

1 09 C 

1 08 C ***** POP CHSORC ***** 

106 C 

107 DATA ( (LHSI ( I,JI, 1=1 ,S),U=I ,6) / 

108 I 'GAS GENERATOR CHARACTERISTICS ','GAS GEN, FLOW RATE - (LB/SEC) ', 

109 2'GAS gen. propellant WGT (LBS ) • , ' GAS GENERATOR HEIGHT - (LBS) ', 

110 1'CUMULATIVE gas GEn, prop. WTG, ', 'weight of HEX-GAS GEN. ASSY. '/ 

me 

112 DATA ( (LHS2I I , J) ,1=1 ,S) , J=l , 19) / 

111 I'SPEC.HFaT AVAILaBLF-(HTU/LB-R) ’, 'TOTAL HEAT REQUIRED - (BTU) ', 

119 2'HOT FLUID REQUIRED - (LBS) ' , • CUMUL AT 1 VE HEAT REQD. - (RTU) ', 

IIS I'CllMuLArtVE HOr FLUID - (LBs) ', 'WASTE HFAt UTILIZATION DATA '. 
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I 16 
I I 7 
I 18 
I 19 
\?.0 
121 
122 
121 
I 29 
I 2S 
! 26 
I 27 
128 
129 
I 10 
111 
112 
111 
I 19 
I IS 
I 16 
I 17 
1 18 
I 19 

190 

191 

192 
191 
I 99 

195 

196 

197 

198 

199 

150 

151 

152 
ISI 
IS9 

155 

156 

157 
ISS 

159 

160 
161 
162 
161 
I 69 

165 

166 

167 

168 
I 69 
I 70 

171 

172 
171 


C 

C 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


9'M4X hot fluid FLO-RaTE(LRS/HR)', 'cycle 
S'CYCLE max REaO energy - n2 HEX', 'CYCLE 
6'CYCLE max REOO ENERGY. N2 TANK', 'TOTAL 
7'TOTAL energy for MISSION SPAN 'TOTAL 


Max reqd energy » 02 hex', 
MAX REoo Energy- o2 tanX', 
max energy . HEX « TANKS', 
ENERGY RpQMT - KW/HRS '/ 


***** POP CIOUNT ***** 


DATA IOUNIT/19,21 ,22,21, 19,29, I S, I 6, I 7 , 1 8 , 2S , 26, 27 , 2S/ 
DATA I1N,I0T / S,6 / 


***** Pup cmatrl ***** 

DAT A(RH0L( I ), III ,S)/S0l. 120. 176. 2S6, 169,199, SI 1.988,276.980/ 

DATA (RHOI ( niI=l,9)/2.l9.2.9S,2.80,0.816,O.S9,n.6S,S.O,?.2,I.O/ 
DATA (RHOISI I 1,1 = 1 ,9 I/O. 0928 .0. 0990, 0.0280, 0. 027867, n,0 I 97S, 

I 0.02 1667, S. 0,2. 20, 1.0/ 

OAtA(MINtHK( I ) , 1 = 1 , IS)/ 0 . 020 , 0 . 02 S. 0 . 028 . 0 .n 20 ,O.OI 6 . 0 . 01 S,O.OS 8 , 

I 0.06S,0.092,0.020,0.099,n.08l,n.09S,n.099,0.01S/ 


***** POP CnAmES ***** 

DATA(FNAME( I 1,1 = 1, I 9) /'GAS ' , ' ENG 1 NE ' , ' L 1 N£ ' , 'CONTRL' , 'FI TING' 

1 ,'TAP ','TEE ','ELROW ', 'VALVE ','REG ' 

2 ,'ACCUM ','TANK ','PIJMP ','HEX ','TRRINE' 

1 ,'F-CELL','EC/LSS','RLAO ','ENO '/ 


1 

2 
1 
9 

5 

6 

7 

8 
9 
T 

1 

2 
1 
9 

5 

6 


data ((L0(I,J),1=I,9),J=|,I6)/ 

I ***** System configuration ***** 
I ***** engine data ***** 

I ***** accumulator data ***** 

' ***** heat exchanger data **»** 

I ***** high pres pump data ***** 

I ***** duty cycle Data ***** 

I ***** heat source data ***** 

' ***** turbine data ***** 

' ***** motor data ***** 

I*** tank configuration data 
I ***** LOW PRES pump data ***** 

' ***** tank data ***** 

I ***** auxiliary power unit ***** 

I ***** fuel cell data ***** 

I ***** EC/LSS data ***** 

I ***** hydrazine apu data ***** 


DATA ( (L I ( I , J) , 1 = 1 ,21 I , J=l ,2)/' COMP COMP FUNC. NUMB. NU 
IMS. MATRL. FLOW FRICTION LINE LENGTH LINE INSULATION 

2 INSULATION NO, LAYERS ',' NAME CODE TYPE OPER, STBY, 
1 type COEFICIENT OR L-OVER-D DIAMETER TYPE T 

9HICKNESS INSULATION '/ 


DATA ((L2(I,JI,I=I,1),J=I,7)/'NUMBER OF ENGINES ', 

1 'GAS INLET TEMP, ','6AS INLET PRES. ', 

2 'ENGINE thrust ', 'CHAMBER PRES. ', 

1 'EXPANSION RATIO ', 'MIXTURE RATIO '/ 


DATA ( (LI ( I , Jl , 1=1 ,9) , J=l ,1) 

I 'TANK VOLUME (CU. FT.) ' 


'OPERATING TEMP. (DEG P) ', 
'NOMINAL OPER. DELTA PRES'/ 
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*••*•*•* 


I7M 

175 

176 

177 

178 
I 76 
I 80 
181 
182 
188 
I 8^ 
IBS 
I 86 

187 

188 
I 86 
I 60 
I6| 
162 
168 
I 6M 

165 

166 
I 67 
I 68 
I 66 
200 
201 
202 
208 
206 

205 

206 

207 

208 
206 
210 
21 I 
212 
218 
216 

215 

216 

217 

218 
216 
220 
221 
222 
228 
226 

225 

226 

227 

228 
226 
280 
281 


ST0D7A 


1 

2 
8 
6 
S 

C 

1 

2 
C 

1 

2 
C 


1 

2 
8 
6 

5 

6 

7 

8 
6 
7 

1 

2 
C 

I 

C 


1 

2 
C 

1 

2 
C 

1 

2 
8 
6 
s 
6 

7 
a 
6 
T 
A 
fl 

C 

1 

2 

8 


ithithltlHiic 

DATA ML6( ! f J) , 1= I «6) • Jr I , I 
•HEX HOT OUTLET TEMP. 
'HEX COLO outlet TEMP. 
'HEX hot OUTLET PRES. 
■HEX COLO outlet PRES. 
•HEX COLO SIDE OELTA-P 


)/ 'HEX HOT inlet TEMP. 'i 
•f'HEX COLD inlet TEMP. 

't'HEX HOT inlet PRES. '» 
'♦'HEX COLO INLET PRES. '♦ 
'♦'HEX HOT SIDE OELTa-P '♦ 
'♦'HEX GAS GEN. 0/F PATIO '/ 


DATA ( (LSI I. J) . 1 = 1 f6) ,jr| .S)/ 'TYPE '♦ 

•efficiency '♦■net ♦ SUCTION HEAD '♦ 

'SHAFT SPEED '♦'ESTIMATED DELTA PpES, '/ 


data ((L6(ItJ)^I=(f6)ijrl^6)/ 'PUMP EFFICIENCY 
'NET POS. SUCTION HEAD '♦'PUMP PRESSURE RISE 
'PUMP FLOW RATE '/ 


DATA ( (L7( I • J) . 1=1 ♦6) ♦ jr I .281 
I I 

•initial FLUID LOAD (OPT)' 
•HEAT FLUX ( BTU/HR-FT**2 ) ' 
'INITIAL PRESSURE ' 

•material type ' 

'INSULATION THICKNESS ' 
'PRESSURIZATION TYPE ' 

'pressurant gas temp. IR)' 
•pump OElTA press. (PSiA)' 
•P SUB C OF GAS GEN (PSIA' 
'GAS GEN MIXTURE RATIO ' 
•NUMBER INSULATION LAYERS' 

DATA ((L8(I.J)^I = I.6)^J=U8)/ 

' ACTIVE INACTIVE '♦ 

DATA ( (L9( I. J) ♦ 1=1 .6) .Jrt ♦S)/ 
•TURPiNE Inlet tfmp. •♦ 
•TURBINE MIXTURE RATIO '♦ 

DATA((LlO(I,J).I=l.6),J=i.S)/ 
•HEAT SOURCE MIX. RATIO '♦ 
•HEAT SOURCE A VA IL .ENERGY ' ♦ 

DATA( (LI I ( !♦ J) .1 = 1 .6) .jrl ♦26)/ 
'H0RSFP06ER PER UNIT •♦ 

•APU GAS GEN. INLET PRESS'. 
• HEX EXHAUST 0 1 SCHGE .TEMP ' ♦ 
'02-SUP. GAS GEN. MIX-RATIO'. 
'02-SUP. GAS gen. EXIT TEMP'. 
'02-TANK PESIO.VAP.TEMP, '♦ 
•FUEL MIX-RAT. SUP. GAS-GEN' ♦ 
'FINAL 02 TANK PRESSURE '♦ 
•FINAL 02 tank TEMP. •♦ 

•OELTA-P TANK CIRC. PUMP '. 
•PER-CENT reserve FUEL '♦ 
•TURBINE inlet PRESSURE '/ 

DATA((LI2(I.J).I=I.6),J=|,28)/ 

•fuel cell mixture ratio •♦ 

'F.C.HEAT REJECTION RATE '♦ 
•FUEL CELL NOM. TEMP.- 02'. 


/ 

♦ 'MAXIMUM DIAMETER (FT) 

♦ 'PERCENT Ullage volume 

♦ 'INITIAL temperature (R) 

♦ 'VENTING PRESSURE 

♦ ' insulation type 

♦ 'ACI3UISITI0N TYPE 

♦ 'OPERATING PRESS. (PSIA) 

♦ 'HEX delta press. (PSIA) 

♦ 'HEX outlet temp. (R) 

♦ 'GAS gen outlet temp (R) 

♦ 'NUMBER operating (NOP) 

/ 

( ENG. DEG. DUE TO M)B '♦ 

TIME TIME '/ 

TURBINE efficiency '♦ 

TURBINE OUTLET TEMP. • , 
TURBINE GAS GEN. PSUBC '/ 

heat source type '♦ 

HEAT SOURCE OUTLET TEMP.'. 

HEAT SOURCE PRESSURE '/ 

NUMBER OF APU UNITS '. 

TURBINE MIXTURE RATIO '♦ 
TURBINE inlet TEMP. 

H2-SUP.GAS GEN, MIX-RATIO' ♦ 
H2-SUP.GAS gen, EXIT TEMP', 
H2-TANK BESIO.VAP.TEMP. '♦ 
SYSTEM environment TEMP.'. 

FINAL H2 tank PRESSURE '. 

Final h2 tank temp. '♦ 
temp. EX. PROD. SUP. GAS-GEN' , 
TURBINE pressure RATIO '♦ 
PRESSURANT GAS PRESSURE '. 


NUMBER OF FUEL CELLS OP.', 

sp . reactant consumption '♦ 

SP.W6T. OF FUEL CELL '♦ 
FUEL CELL NOM. TEMP.- H2 ' , 
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*«•«**** STOpTA ***♦*♦★* 


212 

231 

2^4 

21S 

236 

237 

238 

239 
2M0 
29 I 
292 
29-) 
299 

295 

296 

297 

298 

299 
2‘10 
2S( 
262 
2S3 
269 
2S6 
266 

267 

268 
269 
260 
26 1 
262 
263 
269 
266 
266 

267 

268 

269 

270 

271 

272 

273 
279 
276 

276 

277 

278 

279 

280 
28 I 
282 
283 
289 
286 
286 

287 

288 
289 


9 'HOT FLUID INLET TEMP, 't'HOT FLUID OUTLET TEMP. I, 

5 '02 tank fill density 'f'H2 TANK FILL DENSITY 

6 'EST. 02 TANK VENT QUANT i EST . H2 TANK VENT QUANT. 'i 

7 'FUEL CELL OP£P, PRESSURE '* 'NOM. FUEL CELL OPER.POWER'i 

8 '02 TANK LO-PRES. SETTING'i'H2 TANK LO-PRES, SETTING'f 

9 '02 tank VAC.JAC. ANNULUS'. 'H2 TANK VAC.JAC. ANNULUS'. 

T '02 tank maximum 0 1 AmETER ' . ' H2 TANK MAXIMUM DIAMETER'. 

A 'FUEL CELl VOLTAGE (AVG) '.'FUEL CELL 02 PURGE RATE '. 

B 'FUEL CELL H2 PURGE RATE '.'FUEL CELL 02 PURGF TIME '. 

C 'FUEL CELL H2 PURGE TIME '.'02 PURGE INTERVAL-AMPHRS ' . 

0 'H2 PURGE INTERVAL-AMPHRS'/ 

C 

0ATA( (LI 3( 1 . J) . 1=1 .9 ) ,J:I ,28)/'MISS!0N DURATION - DAYS '. 

1 'NUMBER OF MEN IN CREW '.'AIRIOCK REPPESSUR I Z I NGS '. 

2 'DAYS SUPPLY reserve GAS '.'02 CONSUMED PER MAN-OAY ', 

3 'VEHICLE gas LEAKAGE RATE ' . ' DEL I VRREO 02 NOM, TEMP, ', 

9 'DELIVERED n2 NOM. TEMP. '.'02 FILL DENSITY '. 

6 'N2 FILL DENSITY '.'02 TANK FINAL TFMP '. 

6 'N2 tank final TFMP. '.'02 TANK FINAL PRESSURE ', 

7 'N2 TANK FINAL PRESSURE '.'LSS ENVIRONMENT TEMP. '. 

8 'CAHIN OR airlock VOLUME '.'02-HEX INLET LINE OIAM, ', 

9 'N2-HFX inlet line OIAM. ','HEX HEATER ENERGY RATING', 

T 'tnk heater Energy rating' . 'delivered o2 pressure ', 

A 'DELIVERED N2 PRESSURE '.'02 TANK HEATER DIAMETER '. 

B 'N2 TANK HEATER DIAMETER '.'02 TANK HEATER LENGTH ', 

c 'N2 Tank heater length ','02 tank low-prfss. limit*. 

0 'N2 TANK LOW-PRESS. LIMIT'/ 

c 

DATA ( (JFLUIDI I,J),lsl,2),J=l,3)/' OxyCEN HYDROGEN ', 

1 ' NITROGEN 1/ 

data ((KFLU10(l,J),lsl,2),Jsl,2l/' OXIDYZER '.' FUEL '/ 

C 

c ***** POP CONST ***** 

c 

DATA GRAVTY.PI.P1203 / 32.172 .3.19169266 ,2.0993961 / 

C 

c ***** POP CPAGE ***** 

C 

DATA MAXLIN.JNUM .OPTLUN/60. ' AT93D7 ' , 6 / 

DATA PTITLE/' THE INTEGRATED HATH MODEL '/ 

C 

c ***** POP CPUMP ***** 

c 

DATA ( (LPPI ( I , J) ,I=! .3),J=I,6) / 

I 'TEMPERATURE '.'PRESSURE '.'FLOWRATE ', 

2'DELTA-PRESSURE ', 'NPSH aVIaLABLE '. 'DENSITY of fluid '/ 

DATA LPP2 / 'NUMBER OF STAGES REQD. ' / 
data ((LPP3(I,J),I=I.3),J=I.6) / 

('COMPUTED NPSP REQD ', 'COMPUTED PUMP EFF, '. 'COMPUTED PUMP VOL,'. 
2'COMPUTED PUMP WQT COMPUTED PUMP PWR I COMPUTED PUMP SPD.'/ 
DATA LPP9 / 'SELECTED PUMP OPTION ' / 

data LPP6 / 'PUMP characteristics '/ 

c 

c ***** POP CTANK ***** 

C 

DATA ( (LTZI ( I,d) ,1 = 1 ,3) ,J=I . 191/ 

1 'NUMBER OF TANKS ', 'MATERIAL TYPE ',' INSULATION TYPE ', 

2 'FLUID WGT. ( TOTAL 1 ', 'FLUI 0 VOLUME /TANK Dl AMETER IFTI/TANK', 
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stodta 


290 

291 

292 
291 
299 

295 

296 

297 

298 

299 

ino 
10 1 
102 
101 
lOM 

105 

106 

107 

108 

109 

110 

II I 
112 

III 
im 

IIS 

118 

117 

118 
119 


1 'SURPACE AREA /TANK', 'TANK VOLUME / TANK', 'TANK W6T. (LB) TOT', 

9 IINSUL. THICKNESS ','INSUL. HT (LB) TOT'.'HEaT LEAK BTU/H/FT', 

S '6AS residuals HT. ','HGT ADDED CVL SECT'/ 

DATA ((LTZ2(I,J),I=I,2),J=I,1) 

I / 'SURF TENSION' , 'POSITV DISPL' , ' D I ELCTROPHOR ' / 

DATA ((ITZ1(I,J),I=I,1),J=|,9) /'TYPE ACO. DEVICE ', 

I 'DEVICE HT. (LBS) ', 'TRAPPED BY DEVICE ','RESID. PROPELLANT '/ 
C 

c *•**• POP CTURBN ***** 

C 

DATA LTRNI /'TURHIME CHARACTERISTICS '/ 

DATA ((LTRN2(I.d),IS|,S),J=l,6) / 

I 'TUROINF ROTOR MEAN DIAMETER ','WOT. OF PHR. TRANSMISSION ASSY', 

2'WGT. OF turbine ROTOR ','W(iT. OF MANIFOLD AND NOZZLE ', 

I'WEIGHT OF INOUCEP ', 'HEIGHT OF TlIRRiNE ASSY, '/ 

C 

C ***** POP TARLOK ***** 

C 

DATA NTBIO / I, 2, 7, 8, 9, 1, 6, S,2I, 9, 

1 10,10,17,11,11,16,11,21,27,28, 

2 29, 10, 1(, 12, 21, 12, IS, 12, 18, IS, 

1 10,11,16,11,91,91,12,12,91,18, 

R 19,20,21 ,99, 9S, 96, 97,96,99, SO, 

S SUSP, 0, 0, 0/ 

MIPE r 0. 

NIENTH s 0.0 

C 

RETURN 

C 

END 
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PROCEDURE DEFINITION PROCESSOR TABLOK 

61S7I7*TPF*.TARL0K 

1 tabuok* PROC 

2 C 

T REAL MIPS 

M C 

R COMMON /TABLOK/ XTABtTIf NTBIOISS) 

6 C 

7 END 


SUBROUTINE VGVSHE 

61S7I7*TPF$.V6VSHE 

1 SUBROUTINE VGVSHE ( IOX«RHo» 

2 C 

1C ** IDX - index of CONFIGURATION TABLE 

4 C *• RHO - DENSITY OF THE GAS 

5 C 

6 INCLUDE CCNFI6 

7 INCLUDE CONST 

8 C 

S OATA IBLNKflASTI f IAST6/' )|)******i/ 

10 C 

I' C ** COMPUTE THE VELOCITY OF THE GAS 

12 C 

n MFLG(IOX) s IBLNK 

14 VG s R76. * W00TN(IDX)/{PI * 0IAM(I0X)**2 * RHO) 

15 C 

16 C - ** COMPUTE THE VELOCITY OF SOUND IN GAS 

17 C 

18 CPGAS = 1,242 

19 CVGAS = 0.747 

20 C 

21 VS = SQRT(GRAvTY*CPGAS«FINDR{ I7)*TEMP( IDX)/CVGAS) 

22 C 

21 C ** COMPUTE MACH NUMBER 

24 C 

25 HACH(IOX) = VG/VS 

26 C 

27 C *• CHECK Mach number, flag MACH greater than .1 WITH ONE 

28 C ** ASTERISK. FLAG MACH NUMBER GREATER THAN 0.9S WITH 

29 C A* 6 ASTERISKS. 

10 C 

11 IF(MACH(inX) - 0.1) 40,40,10 

12 10 IF(MACH(I0X| - 0.9S) 20,10,10 

11 20 MFLG( lOX) = lASTI 

14 GO TO MO 

15 10 HFLG( IDX) = IAST6 

16 40 RETURN 

17 C 

18 END 
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D-3.2 PROGRAM FILE ELEMENT TABLE OF CONTENTS 


The next several pages contain the program file table of contents, also known as the 
PRT,T index. The table is printed when called for by a@PRT,T control card. The 
output contains the "element table, " "procedure tables, " and, if a@PREP card has 
preceeded the PRT card, the "entry point table. " 


The column headings given at the beginning of the element table have the following 
meanings: 


D-FLAG 

NAME 

VERSION 

TYPE 


an asterisk means that the entry is deleted from the file, 
name of synbolic/relocatable/absolute element, 
version of element. 

if the element is symbolic, the processor which created it 
is indicated. 


DATE, TIME time that element was added to the file. 

SEQUENCE position of the element in the file. This is sequentially issued 
NO. as elements are added to the file. 


PRE-SIZE 

TEXT- SIZE 

CYCLE 

WORD 


LOCATION 


for relocatable elements, the preamble length is given in 
sectors (28 words per sector) 

this is the text size in sectors. 

the cycle word is broken up into three separate parameters; 
starting from left to right, they are : 

1) the niunber of cycles the system will maintain 

2) the number of the most current cycles 
(absolute scale) 

3) the number of cycles currently being maintained. 

refers to the sector position relating to the start of the file 
(1792 is the base). 


It should be noted that the entry point table is fugitive in the sense that it must be 
recreated each time a change is made in the program, and is subject to the following 
constraints; 

1) Destroyed when an update is made to any element in a program file. 

2) Destroyed when program file is put on magnetic tape. 

3) Is not re-established when file is copied from tape to drum. 
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4) Contains externalized labels. 

5) Is created by the @PREP statement which will prepare or re-establish 
an entry point table for a specified program file. 
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ELEMENT TABLE 0f FILE HZPR0G. 


name 

version 

type 

date 


time 

SEO a 

SIZE-PRE 

.text 

(CYCLE 

WOROI PSRMODE LOCATION 

CACCUM 


FOR 

OROC 

OB 

JUN 

Ti 

ITtlS 

t2| 

1 


IR 

1 

0 1 

1792 

CAPU 


FOR 

PROC 

06 

JUN 

Ti 

ITlIS 

t29 

2 


S2 

1 

0 1 

1806 

CCNFIG 


FOR 

PPOC 

06 

JUN 

Ti 

ITtlS 

t18 

1 


R1 

1 

0 1 

I8S8 

COCYCL 


FOR 

PPOC 

06 

JUN 

Ti 

ITtlS 

IMS 

R 


10 

1 

0 1 

1901 

CECLSS 


FOB 

PROC 

06 

JUN 

Ti 

ITUS 

tSO 

S 


19 

1 

0 1 

1911 

CENT. 


FOR 

PROC 

06 

JUN 

Ti 

ITtlS 

tS2 

6 


10 

1 

0 1 

1910 

CFLRAT 


FOR 

PROC 

06 

JUN 

Ti 

ITtlS 

tSN 

7 


1 

1 

n 1 

I9R0 

CFLUID 


FOR 

PPOC 

06 

JUN 

Ti 

ITtlS 

tSR 

8 


1 

1 

0 1 

I9R1 

CFUEL 


FOR 

PROC 

06 

JUN 

Ti 

ITtlS 

tST 

9 


1 1 

1 

0 1 

|9RR 

CHEX' 


FOR 

PROC 

06 

JUN 

Ti 

ITUS 

tSR 

10 


22 

1 

0 1 

I9S7 

CMTX 


FOB 

PROC 

06 

JUN 

Ti 

ITt16 

too 

1 1 


R 

1 

0 1 

1979 

CWSORC 


FOR 

PROC 

06 

JUN 

Ti 

ITI16 

tOI 

12 


11 

1 

0 1 

1981 

CIOUNT 


FOR 

PPOC 

06 

JUN 

71 

ITt16 

t2S 

11 


S 

1 

0 1 

1996 

ckeys 


FOR 

PROC 

06 

JUN 

71 

ITt16 

t26 

IR 


1 

1 

0 1 

2001 

CMATRL 


FOR 

PROC 

06 

JUN 

71 

ITt16 

t2T 

IS 


IT 

1 

0 1 

2002 

CMOTOR 


FOR 

PROC 

06 

JUN 

71 

ITt16 

t2B 

16 


2 

1 

0 1 

2019 

CNAMES 


FOR 

PPOC 

06 

JUN 

71 

ITt16 

t29 

IT 


S 

1 

0 1 

2021 

CONST 


FOR 

PPOC 

06 

JUN 

71 

ITt16 

tio 

18 


2 

1 

0 1 

2026 

CPAGE 


FOR 

PPOC 

06 

JUN 

71 

ITt16 

tl4 

19 


8 

1 

n 1 

2028 

CPUMP 


FOP 

PROC 

06 

JUN 

71 

ITt16 

t17 

20 


20 

1 

0 1 

2016 

CSYSWT 


FOR 

PROC 

06 

JUN 

71 

ITt16 

tN2 

21 


6 

1 

0 1 

20S6 

CTAP 


FOR 

PROC 

06 

JUN 

71 

ITt16 

tRT 

22 


10 

1 

0 1 

2062 

CTAHA 


FOR 

PPOC 

06 

JUN 

71 

ITt16 

tSB 

21 


2 

1 

0 1 

2072 

CTANK 


FOR 

PROC 

06 

JUN 

71 

ITtIT 

tOI 

2R 


19 

1 

0 1 

207R 

CTUR8N 


FOR 

PROC 

06 

JUN 

71 

ITlIT 

1 1 1 

2S 


11 

1 

0 1 

2091 

dummy 


FOR 

PROC 

06 

JUN 

71 

ITtIT 

t 12 

26 


1 

1 

0 1 

2106 

SPUMP 


FOR 

PROC 

06 

JUN 

71 

I7t17 

tl6 

27 


2 

1 

n 1 

2109 

tablok 


FOR 

PROC 

06 

JUN 

71 

I7t17 

t IT 

28 


1 

1 

0 1 

2111 

tankwt 


FOR 

PROC 

06 

JUN 

71 

ITtIT 

tie 

29 


1 

1 

0 1 

2112 

ACCRES 


RELOCATABLE 

06 

JUN 

71 

ITtIT 

t24 

10 

1 

1 



21 IS 

ACCPES 


FOR 

SYMB 

06 

JUN 

71 

ITtIT 

|2U 

11 


1 

S 

0 1 

2117 

acoht 


relocatable 

06 

JUN 

71 

ITtIT 

tio 

12 

1 

1 



2118 

ACQWT 


FOR 

SYMB 

06 

JUN 

71 

ITtIT 

til 

11 


1 

s 

0 1 

2120 

AP'JFLO 


RELOCATABLE 

06 

JUN 

71 

ITtIT 

t16 

IR 

1 

1 



2121 

APUFLO 


FOR 

SYMB 

06 

JUN 

71 

ITtIT 

t16 

IS 


1 

s 

n 1 

2121 

APUSUB 


RELOCATABLE 

06 

JUN 

71 

ITtIT 

|17 

16 

1 

1 



2I2R 

APUSUB 


FOR 

SYMB 

06 

JUN 

71 

ITtIT 

tie 

17 


1 

s 

0 1 

2126 

APU5UP 


RELOCATABLE 

06 

JUN 

71 

ITtIT 

tRo 

19 

1 

1 



2127 

APUSUP 


FOR 

SYMB 

06 

JUN 

71 

ITtIT 

tRO 

19 


1 

s 

0 1 

2129 

CMPCAL 


RELOCATABLE 

06 

JUN 

71 

ITtIT 

tRI 

RO 

1 

1 



2110 

cmpcal 


FOR 

SYMB 

06 

JUN 

71 

I7t17 

tRI 

R| 


1 

s 

0 1 

2112 

COMPIL 


RELOCATABLE 

06 

JUN 

71 

I7t1? 

t 12 

R2 

6 

172 



2111 

COMPIL 


FOR 

5YN0 

06 

JUN 

71 

ITtlA 

1 12 

R1 


IR1 

s 

0 1 

211 1 

CONSUM 


relocatable 

06 

JUN 

71 

17:18 

t IR 

RR 

1 

1 



2RSR 

CONSUM 


FOR 

SYMB 

06 

JUN 

71 

I7t18 

t IS 

RS 


1 

s 

0 1 

2RS6 

CRYCON 


RELOCATABLE 

06 

JUN 

71 

ITilB 

t20 

R6 

1 

9 



2RST 

CRYCON 


FOB 

symb 

06 

JUN 

71 

ITtIB 

t2l 

R7 


IT 

s 

n 1 

2R69 

OlAG 


RELOCATABLE 

06 

JUN 

71 

I7t19 

t22 

RB 

1 

S 



2R86 

DlAG 


FOR 

SYMB 

06 

JUN 

71 

ITtlS 

t21 

R9 


1 1 

s 

0 1 

2R92 

ECLSS 


RELOCATABLE 

06 

JUN 

71 

ITtlS 

t2S 

SO 

1 

1 



2S01 

ECLSS 


FOR 

SYMB 

06 

JUN 

71 

ITtlS 

tZS 

SI 


1 

s 

0 1 

2S0S 

FI NOR 


RELOCATABLE 

06 

JUN 

71 

ITtlS 

t17 

S2 

1 

1 



2S06 

FINDR 


FOR 

SYMB 

06 

JUN 

71 

ITtlS 

t17 

SI 


2 

s 

0 1 

2SI0 

FINTAB 


relocatable 

06 

JUN 

71 

ITtlS 

tR2 

SR 

2 

9 



2SI2 

FINTAB 


FOR 

SYMB 

06 

JUN 

71 

ITtlS 

tR2 

ss 


12 

s 

0 1 

2S21 

FlIELCL 


relocatable 

06 

JUM 

71 

IT lie 

iRR 

S6 

1 

1 



2S1S 

FUELCL 


FOR 

Symb 

06 

JtIN 

71 

ITtlS 

|R9 

ST 


1 

s 

0 1 

2S17 

getcon 


relocatable 

06 

JUN 

71 

ITtlS 

tSS 

SS 

2 

R 



2S1B 

getcon 


FOR 

SYMB 

06 

JUN 

71 

ITtlS 

|S6 

S9 


R 

s 

n 1 

2SRR 
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0 

1 



intab 

relocatable 

06 

JUN 

73 

l7l3R| 1 1 

60 

2 

87 




P882 

INTAB 

FOR SYMB 

06 

JUN 

73 

I7«38l 12 

61 


66 

8 

0 

1 

2611 

LIQRES 

RELOCATABLE 

06 

JUN 

73 

l7«39l2S 

62 

1 

1 




2677 

LIORES 

FOR SYMB 

06 

JUN 

73 

I7I39I2S 

63 


1 

8 

0 

1 

2679 

LOCATE 

relocatable 

06 

JUN 

73 

I7t39t36 

64 

2 

9 



i 

2680 

LOCATE 

FOR SYMB 

06 

JUN 

73 

I7I39I37 

68 


13 

8 

0 

1 

2691 

LWEGHT 

relocatable 

06 

JUN 

73 

l7t39tNS 

66 

2 

16 




2704 

lweght 

FOR SYMB 

06 

JUN 

73 

l7l39|S9 

67 


24 

8 

0 

1 

2722 

MIPE 

RELOCATABLE 

06 

JUN 

73 

l7tM0t22 

68 

2 

21 




2746 

MIPE 

FOR SYMB 

06 

JUN 

73 

l7lU0l23 

69 


28 

8 

0 

1 

2769 

otrtns 

relocatable 

06 

JUN 

73 

17(41106 

70 

8 

16 




2797 

OTRTNS 

FOR SYMB 

06 

JUN 

73 

17(41(10 

71 


22 

8 

0 

1 

2818 

output 

relocatable 

06 

JUN 

73 

17(41 1 13 

72 

2 

21 




2840 

OUTPUT 

FOR SYMB 

06 

JUN 

73 

17(411 14 

73 


13 

8 

0 

1 

2863 

PAGE 

relocatable 

06 

JUN 

73 

17(41 ( 18 

74 

2 

7 




2876 

PAGE 

FOR SYMB 

06 

JUN 

73 

17(41(19 

78 


31 

8 

0 

1 

2888 

STOCON 

RELOCATABLE 

06 

JUN 

73 

17(41(22 

76 

1 

3 




29(6 

STOCON 

FOR SYMB 

06 

JUN 

73 

17(41(23 

77 


7 

8 

0 

1 

2920 

STODTA 

Relocatable 

06 

JUN 

73 

17(41 |43 

78 

4 

78 




2927 

STODTA 

FOR SyMB 

06 

JUN 

73 

17(41 |4(; 

79 


108 

8 

n 

1 

3009 

TANK 

relocatable 

06 

JUN 

73 

17(42(00 

80 

1 

1 




3117 

TANK 

FOR SYMB 

06 

JUN 

73 

17(42(00 

81 


1 

8 

0 

1 

3(19 

TCOND 

RELOCATABLE 

06 

JUN 

73 

17(42(07 

82 

1 

17 




3(20 

TCOHO 

FOP SYMB 

06 

JUN 

73 

17(42(07 

83 


22 

8 

0 

1 

3(38 

TEL 

RELOCATABLE 

06 

JUN 

73 

I7(42( 1 1 

84 

2 

9 




3(60 

TEL 

FOR SYMB 

06 

JUN 

73 

I7(42( 12 

88 


IS 

8 

0 

1 

3I7( 

TSUEI 

RELOCATABLE 

06 

JUN 

73 

17(42(14 

86 

1 

1 




3(86 

TSIZEl 

FOR SYMB 

06 

JUN 

73 

I7(42( 14 

87 


1 

8 

0 

1 

3(88 

WTACC 

relocatable 

06 

JUN 

73 

17(42(16 

88 

1 

1 




3189 

WTACC 

FOB SYMB 

06 

JUN 

73 

17(42(17 

89 


1 

8 

0 

1 

3(9( 

YLGINT 

RELOCATABLE 

06 

JUN 

73 

17(42(21 

90 

1 

16 




3(92 

YLGINT 

FOR SYMB 

06 

JUN 

73 

17(42(22 

9| 


42 

8 

0 

1 

3209 

YLNTRP 

RELOCATABLE 

06 

JUN 

73 

17(42(28 

92 

1 

1 




3281 

YLNTRP 

FOR SYMB 

06 

JUN 

73 

17(42(28 

93 


3 

8 

0 

1 

3283 

ZFINO 

relocatable 

06 

JItN 

73 

17(42(31 

94 

2 

38 




3286 

iFIMD 

FOR SYMB 

06 

JUN 

73 

17(42(31 

98 


33 

8 

0 

1 

3293 

CCNTRL 

FOP PROC 

08 

JUN 

73 

01(49(36 

96 


13 

1 

0 

1 

3326 

CONTRL 

relocatable 

08 

JUN 

73 

01(49(39 

97 

3 

ID 




3339 

CONTRL 

FOR SYMB- 

08 

JUN 

73 

01 (49(39 

98 


13 

8 

0 

1 

338? 

HZNCMP 

Relocatable 

08 

JUN 

73 

01(80(07 

99 

4 

68 




3368 

HZNCMP 

FOR SyMB 

08 

JUN 

73 

01(80(08 

too 


84 

8 

0 

1 

3434 

HZCVCW 

RELOCATABLE 

08 

JUN 

73 

01(80(40 

tot 

1 

8 




38(8 

HZCVCW 

FOB SYMB 

08 

JUN 

73 

01 (S0(40 

102 


8 

8 

0 

1 

3824 

VGV5HE 

RELOCATABLE 

08 

JUN 

73 

01180(42 

103 

2 

8 




3829 

VGVSHE 

FOR SYMB 

08 

JUN 

73 

01 (80(43 

104 


8 

8 

0 

1 

3836 

HZAPU 

RELOCATABLE 

08 

JUN 

73 

10(08(08 

(08 

4 

68 




3844 

HZAPU 

FOR SYMB 

08 

JUN 

73 

10(08(06 

106 


70 

8 

0 

1 

36(3 


NEXT AVAILABLE LOCATION- 

assembler procedure table empty 

COBOL PROCEDURE TABLE EMPTY 

FORTRAN PROCEDURE TABLE 


D NAME LOCATION LINK D NAME LOCATION LINK 0 NAME LOCATION LINK 

CACCUM S0I78 I CAPU SOBTO 2 CCNFIG S2026 T 

CCNTRL Rinn 96 COCYCL ST2T0 M CECLSS STSIO 5 
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CENG 

SNONa 

6 

CPLRAT 

CFUEL 

SUNTN 

9 

CHEX 

CHTX 

SSNIM 

1 1 

CIOUNT 

CMATRL 

S60'5R 

IS 

CMOTOR. 

CONST 

SfcTlO 

18 

CPAGE 

CSYSHT 

S7S70 

ai 

CTA8 

CTANK 

S807M 

an 

CTURBN 

SPUMP 

S90SM 

a7 

TABLOK 


ENTRY POINT TABLE 


name 

link 

0 name 

link 

0 name 

ACCRES 

TO 

ACOWT 

Ta 

apuflo 

CMPCAL 

MO 

COMPIL 

Ma 

CONSUM 

ECLSS 

SO 

FINDR 

sa 

FINTAB 

HZAPU 

lOS 

HZCVCW 

101 

HZNCMP 

LOCAT 

6M 

LWEGHT 

A>6 

MIPE 

OTIINIT 

7a 

OUTPA 

7a 

OUTPF 

OUTPW 

7a 

PAGE 

7M 

RVMIPE 

STOOTA- 

78 

TANK 

80 

TCONO 

V6VSHE 

lOT 

WTACC 

88 

YLGINT 


■FREE HZPROG. 


SMTaa 

7 

CFLUIO 

SMM06 

8 

SM798 

10 

CHSORC 

SSS86 

la 

SSB90 

IT 

CKEYS 

S60T0 

IM 

SGSTM 

16 

CNAMES 

S6S90 

17 

SA,786 

19 

CPUMP 

S70I0 

ao 

S77T8 

aa 

CTABA 

S80I8 

aT 

SR608 

as 

DUMMY . 

S8970 

as 

S9I 10 

as 

TANKWT 

S9IT8 

39 


link 

0 name 

link 

D name 

link 

TM 

APUSUB 

T6 

APUSUP 

T8 

MM 

CBYCON 

M6 

DIAG 

MB 

SM 

FUELCL 

S6 

GETCON 

S8 

99 

INTAB 

60 

LIQRES 

63 

68 

OTPHEX 

70 

OTPWSM 

70 

7a 

OUTPFI 

?a 

OUTPt 

73 

68 

SPACE 

73 

STOCON 

76 

sa 

TEL ■ 

PM 

TSIZEI 

86 

90 

YLNTRP 

93 

ZFIND 

9M 
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D-3.3 CROSS REFERENCE OF PROGRAM FILE 

It is often of interest to know which subprograms call a specific routine in a given 
program sequence. This kind of information for program file HZPRC^G is presented 
in the following pages. An e3q)lanation of the XREF processor which generates the 
cross reference listing is given below. 

XREF (Cross Reference Listing of Relocatable Elements) : The XREF processor 
generates a cross reference listing of all entry points and imdefined symbols in the 
specified program file that has been PACKed and PREP'D. The names of the re- 
locatable elements are listed alphabetically. Beside each element name, the names 
of the element entry points are listed. Beside each entry point name, the names of 
all relocatable elements in the program file which reference this entry point are listed. 
An element entry point is the result of an assembly or compilation and specifies the 
location at which execution of the program element commences. A compiled FORTRAN V 
subroutine or function has one entry point corresponding to the name of the subroutine 
or function. An undefined ssnnbol (or external reference) is the result of a subroutine 
call or reference to an array not contained within the element. Any external FORTRAN 
reference creates an undefined symbol. 
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CR0SS REFERENCE OF FILE HZPR0G. 


aXREF»XREF.XREF TPF*. 
XREF OF FILE <>1R7I7*TPFS 


ACCPES 

01 

(oooonw) 

ACQWT 

01 

((100004) 

apuflo 

01 

(000004) 

APUSUB 

01 

(000004 ) 

APUSUP 

01 

(000004) 

CMPCAL 

01 

(000004) 

COMPlL 

01 

(oosas4) 

CONSUM 

01 

(000004) 

CRVCON 

01 

(oooaoB) 

DUG 

01 

(000062) 

ECLSS 

01 

(000004 ) 

FINDR 

01 

(000014) 

FINTAB 

01 

(000I6T) 

FUELCL 

01 

(000004) 

GETCON 

01 

(0000S1) 

HZAPU 

01 

(001214) 

HZCVCW 

01 

(OOOOSS) 

HZNCMP 

01 

(002016) 

INTAB 

01 

(OOlSIO) 

LK3RES 

01 

(000004 ) 

LOCAT 

01 

(000167) 

LWEGHT 

01 

(0001S1) 

mipE 

01 

(O00S06) 

OTPHEX 

01 

(000111) 

OTPWSM 

01 

(000116) 

OTUNIT 

01 

(000SI2) 

OUTBA 

01 

(00042S) 

OUTPF 

01 

(000144) 

OUTPFI 

01 

(000171 ) 

OUTPI 

01 

(000402) 

OUTPW 

01 

(0004SO) 

PAGE 

01 

(000121 ) 

RVMIPE 

01 

(000S2I ) 

SPACE 

01 

(000S07) 

STOCON 

01 

(000040) 

STODTA 

01 

(000006) 

TANK 

01 

(000004) 

TCOND 

01 

(000171 ) 

TEL 

01 

(000161 ) 

TSIZEI 

01 

(000004) 

VGVSHE 

01 

(000067) 

WTACC 

01 

(000004) 

ylgint 

01 

(00040S ) 

YLNTRP 

01 

(000007) 

ZFIND 

01 

(000416) 


♦•DONE** 


(ACCRES) fCRVCON 
UCQWTI .CRVCON 
(APIIFlO) 

(APUSUB) f CRVCON 
(APUSUP) .CRVCON 
(CMPCALl ,CRW)N 
(COMPILI .CONTRL 

(CONSUM) .CRVCON 
(CRVCON) .CONTRL 

(DUG) , MI PE, LWeGHT. locate. GETCON.F intab. CRVCON 

(ECLSS) .CRVCON 

(FINOR) .HZNCMP.VGVSHE.HZAPU 

(FINTAB) . LWEGHT. HZNCMP.HZAPU 

(FUELCL) .CRVCON 

(GETCON) .OTPTNS.HZNCMP 

(HZAPU) .CRVCON 

(HZCVCW) .HZNCMP 

(HZNCMP) .HZAPU 

(INTAB) .CONTRL 

(LIQRES) .CRVCON 

(LOCATE) .MIPE 

(LWEGHT) .HZNCMP 

(MIpE) .LWEGHT. HZNCMP. HZAPU 

(OTRTNS) 

(OTRTNS) .CRVCON 
(OUTPUT) .CONTRL 
(OUTPUT) 

(OUTPUT) 

(OUTPUT) .OTRTNS 
(OUTPUT) 

(OUTPUT) .OTRTNS 

(PAGE) .OTRTNS. CONTRL. I NT AB. HZNCMP. 01 AG, HZAPU. COMP I L 
(MIPE) 

(OUTPUT) .OTRTNS 
(STOCON) .COMPIL 
(STODTA) .CONTRL 
(TANK) .CRVCON 
(TCOND) 

(TEL) .MIPE 
(TSIZEI) .CRVCON 
(VGVSHE) .HZNCMP 
(WTACC) .CRVCON 
(VLGINT) ,TEL 
(YLNTRP) 

(ZFINO) .HZNCMP, HZAPU 
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